代碼在這 - -```復制粘貼進入哦 ```雙擊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
然後 按ALT+F8會看見提示：
然後就是excel自動組詞的結果。妳可以看壹下各種詞，是不是妳想要的結果。