在做SEO或者关键词竞价广告时，需要核心关键词之间排列组合，来快速大量的获取长尾关键词。本文介绍用Excel来实现拓词的方法。
注：本文适合有一定Excel基础，对于VBA或宏有基础了解的人。
排列组合需求
假如我需要三列来放置我的核心关键词，那我就放在A、B、C三列，然后D列用来最终生成组合的关键词，最终效果如下图。
进入编程界面的方法
首先通过菜单栏 —— 开发工具 —— Visual Basic进入VBA编程环境，然后插入 —— 模块，此时便会出现代码编辑窗口，然后在此写入代码即可。
编程思路
编程思路：通过3列依次循环，然后进行每列的相加就可以了。
常用的循环语句有两种：
- for...next...循环
- do while…loop…循环
因为我想直接生成一个排列组合关键词的Excel模板，所以前面三列每列的核心关键词的数量之后肯定会发生改变，所以在此我采用do while…loop…的循环方法。
用此循环方法的思路为：依次循环前面三列，直到每列出现空值时，结束此列的循环。那么这时，应该使用下面这句语法：
Do while cells(i,1) <> “”
…
Loop
cells(i,1)表示的意思是：第i行，第1列所代表的单元格。（i为变量）
排列组合具体代码
思路有了，代码就很简单了，下面直接给出我写好的代码：
Sub 排列组合()
i = 1
x = 1
Do While Cells(i, 1) <> ""
j = 1
Do While Cells(j, 2) <> ""
k = 1
Do While Cells(k, 3) <> ""
Cells(x, 4) = Cells(i, 1) + Cells(j, 2) + Cells(k, 3)
x = x + 1
k = k + 1
Loop
j = j + 1
Loop
i = i + 1
Loop
End Sub
之后便是只需找到核心词，就可以一键生成排列组合好的关键词了。如果需要再添加第四列、第五列，直接在上面的代码中再嵌套循环就可以了。
