exceL表格直通车组词方法设置技巧

1、EXCEL建立关键词的方法，如下图这样所示，亲记得要一步一步操作哦。

2、打开EXCEL ，ALT+F11 。如图所示，我们稍后会给出代码。

3、代码在这 - -```复制粘贴进入哦 ```双击sheet1,将代码复制进窗口，然后保存。点回到EXCEL表。

Sub zh()  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会看见提示：

5、然后就是excel自动组词的结果。你可以看一下各种词，是不是你想要的结果。