蜗牛之路

项目需求：
在网站优化过程中，我们有时需要通过关键词拼接的方式，生成大量的关键词，并且不遗漏任何一个关键词。
比如：你是做存包柜推广的，你的关键词有：

12门
24门

电子
条码
投币
商场

存包柜
储物柜

价格
厂家
报价

几组关键词，这时我们可以通过Excel循环嵌套的方式，组合出“12门电子存包柜价格”、“12门电子储物柜厂家”等关键词列表出来。

Excel宏代码如下：

Sub a()

Dim a, b, c, d As Integer

a = Sheets(1).[a65536].End(xlUp).Row

b = Sheets(1).[b65536].End(xlUp).Row

c = Sheets(1).[c65536].End(xlUp).Row

d = Sheets(1).[d65536].End(xlUp).Row

For i = 1 To a

For p = 1 To b

For q = 1 To c

For t = 1 To d

x = x + 1

Cells(x, 7).Value = Cells(i, 1).Value & Cells(p, 2).Value & Cells(q, 3).Value & Cells(t, 4).Value

Next

Next

Next

Next

End Sub

执行的结果如下：