exceL表格直通车组词方法.docx

exceL表格直通车组词方法EXCEL建立 关键词的方法打开EXCEL ，ALT+F11 代码在这 - -复制粘贴进入哦 双击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会看见提示 执行后 大家看看结果三个词的组词代码Subzh()Dima()AsVariant,bAsInteger,nAsInteger定义一个数组,两个变量b=WorksheetFunction.CountA(Range(a:a)判断A列有多少个数据ReDima(b)重定义数组大小Fori=1Toba(i)=Range(a&i)Nexti给数组赋值Fori=1Tobn=1Forj=1TobForx=1TobIfijAndixAndjxThen判断各个数是否相等Cells(n,i+2)=a(i)&a(j)&a(x)生成各个数的组合,并输出到C列n=n+1EndIfNextx,j,iEndSub