eceL表格直通车组词方法.docxVIP

exceL 表格直通车组词方法 五g－ 五g－髻言女衣 1一2-3-4-5-6-？一OCi9 三打开 EXCEL，ALT+F11 三 ” “ m j” :l 叩 I” “ m mft B扛丑．对 i 重如叫知如 雹如立 积缸从2 ) 匾卜正曹晒亡 伦tu ■心）  习Jl m 岳竺最乐 b 石 b OPi.. 暴 U 儿 i \.“ii 晶』` r:ni 龟中r , m 岳竺最 乐 b 石 b O ， 立 － 个 配立心众心呻 ｀t 二 百rQ k叶，吐d 立土心心，四 (1l- ．! 邑＿“心 ` P齿 戏 多3 个 .－） .－）` r”-1 = L 亡 , b 心） ＝ Em 守p , 刊＇｀扫t i 吐飞 生 衣 叮 — 吐 r 吐 ． l. ? L !I) b 上 ：：，：： i j,几 I j = E 和 j, 屯 ；； 虹1 十 ：｝ ＝书 名怂 屯 ；； 虹 1 十 ：｝ ＝ 峙 9.:1共 t兄 ．． 心 吐 口乒i 1 L lr u l ?f  ]1 红 L j, 丘 a. s心 妇 如 严 如 平 础 t 切，盖 !!I ■ n -+ 1 巴 B 夏t L I h) i 无 面＋氐祜妘 祀 1 礼 曰恩 Vllil r o j＿芷e t 1 ＄压e 曰恩 Vllil r o j ＿ 芷e t 1 ＄压 e t 喝 建 l i e 巴·含， 阳CE O5 0 f t Excel 对含 tl ) ； 雹 Sh 年 3 (sheet3) ， 初 Thi 式 or kb ook 红色化对~l 的足: 一个r月谷 区 把代码粕入进去 丈 I Ill L I 代码在这--```复制粘贴进入哦```双击 sheet1,将代码复制进窗口，然后保存。点回到 EXCEL 表 Subzh() Dima()AsVariant,bAsInteger,nAsInteger 定义一个数组,两个变量 b=WorksheetFunction.CountA(Range(a:a)) 判断 A 列有多少个数据 ReDima(b) 重定义数组大小Fori=1Tob a(i)=Range(ai) Nexti 给数组赋值Fori=1Tob n=1 Forj=1Tob IfijThen 判断各个数是否相等Cells(n,i+2)=a(i)a(j) 生成各个数的组合,并输出到 C 列，上面 a(i)a(j)表示 C 列输出是关键词+ 空格+关键词。 n=n+1 EndIf Nextj,i EndSub 然后按 ALT+F8 会看见提示 执行后大家看看结果 三个词的组词代码 Subzh() Dima()AsVariant,bAsInteger,nAsInteger 定义一个数组,两个变量 b=WorksheetFunction.CountA(Range(a:a)) 判断 A 列有多少个数据 ReDima(b) 重定义数组大小Fori=1Tob a(i)=Range(ai) Nexti 给数组赋值Fori=1Tob n=1 Forj=1Tob Forx=1Tob IfijAndixAndjxThen 判断各个数是否相等 Cells(n,i+2)=a(i)a(j)a(x) 生成各个数的组合,并输出到 C 列n=n+1 EndIf Nextx,j,i EndSub