exceL表格直通车组词方法

exceL表格直通车组词方法EXCEL建立关键词的方法

打开EXCEL ，ALT+F11

三个词的组词代码

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

For x = 1 To b

If i <> j And i <> x And j <> x Then

'判断各个数是否相等

Cells(n, i + 2) = a(i) & " " & a(j) & " " & a(x)

'生成各个数的组合,并输出到C列

n = n + 1

End If Next x, j, i

End Sub

. .