1、EXCEL建立 关键词的方法，如下图这样所示，亲记得要一步一步操作哦。
3、代码在这 - -```复制粘贴进入哦 ```双击sheet1,将代码复制旅邯佤践进窗口，然后保存。点回到EXCEL表。Sub z茑霁酌绡h() Dim a() As Variant, b As Integer, n As Integer '定义一个数组,两个变量 b = WorksheetFunction.CountA(Range("a:a")) '判断A列有多少个数据 ReDim a(b) '重定义数组大小 For i = 1 To b a(i) = Range("a" & i) Next i '给数组赋值 For i = 1 To b n = 1 For j = 1 To b If i <> j Then '判断各个数是否相等 Cells(n, i + 2) = a(i)& " " & a(j) '生成各个数的组合,并输出到C列，上面a(i) & " " & a(j)表示C列输出是 关键词+空格+关键词。 n = n + 1 End If Next j, iEnd Sub
4、然后 按ALT+F8会看见提示：
