在做SEO或者关键词竞价广告时，需要核心关键词之间排列组合，来快速大量的获取长尾关键词。本文介绍用Excel来实现拓词的方法。

注：本文适合有一定Excel基础，对于VBA或宏有基础了解的人。

排列组合需求

假如我需要三列来放置我的核心关键词，那我就放在A、B、C三列，然后D列用来最终生成组合的关键词，最终效果如下图。

进入编程界面的方法

首先通过菜单栏 —— 开发工具 —— Visual Basic进入VBA编程环境，然后插入 —— 模块，此时便会出现代码编辑窗口，然后在此写入代码即可。

编程思路

编程思路：通过3列依次循环，然后进行每列的相加就可以了。

常用的循环语句有两种：

1. for...next...循环
2. 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

之后便是只需找到核心词，就可以一键生成排列组合好的关键词了。如果需要再添加第四列、第五列，直接在上面的代码中再嵌套循环就可以了。