exceL 表格直通车组词方法EXCEL 建立关键词的方法打开 EXCEL，ALT+F11代码在这-复制粘贴进入哦双击 sheet1,将代码复制进窗口，然后保存。点回到 EXCEL 表Subzh()Dima()AsVariant,bAsInteger,nAsInteger定义一个数组,两个变量b=WorksheetFunction.CountA(Range(a:a)判断 A 列有多少个数据ReDima(b)重定义数组大小Fori=1Toba(i)=Range(a&i)Nexti给数组赋值Fori=1Tobn=1Forj=1TobIfijAndixThen判断各个数是否相等Cells(n,i+2)=a(i)&a(j)&a(x)生成各个数的组合,并输出到 C 列n=n+1EndIfNextx,j,iEndSub