EXCEL用VBA宏对关键词进行组合适合直通车关键词组合宏

在开直通车的时候经常需要对关键词进行组合尝试，如果一个个手工操作，那非常繁琐，而且很容易遗漏，这里就用VBA宏来进行操作。

首先把最重要的一些单词 写出来或者从生意参谋后台的搜索关键词或者行业热词导出


2词排列组合使用以下宏：

Sub liang()
  Dim a() As Variant, b As Integer, n As Integer
  '定义一个数组,两个变量
  b = WorksheetFunction.CountA(Range("a:a"))
  '判断A列有多少个数据
  ReDim a(b)
  '重定义数组大小
  For i = 1 To b
    a(i) = Range("a" & i)
  Next i
  '给数组赋值
  For i = 1 To b
    n = 1
    For j = 1 To b
          If i <> j Then
          '判断各个数是否相等
          Cells(n, i + 2) = a(i) & " " & a(j)
          '生成各个数的组合,并输出到C列，上面  a(i) & " " & a(j)表示C列输出是 关键词+空格+关键词。
          n = n + 1
          End If
  Next j, i
End Sub
3，复制这一段 ，然后 打开EXCEL ，ALT+F11
双击sheet1,将代码复制进窗口，然后保存。点回到EXCEL表- -~
4，ALT+F8 会看见提示


3词排列组合宏代码如下：
==========随机 3个 空格组合==========

Sub san()
  Dim a() As Variant, b As Integer, n As Integer
  '定义一个数组,两个变量
  b = WorksheetFunction.CountA(Range("a:a"))
  '判断A列有多少个数据
  ReDim a(b)
  '重定义数组大小
  For i = 1 To b
    a(i) = Range("a" & i)
  Next i
  '给数组赋值
  For i = 1 To b
    n = 1
    For j = 1 To b
      For x = 1 To b
          If i <> j And i <> x And j <> x Then
          '判断各个数是否相等
          Cells(n, i + 2) = a(i) & " " & a(j) & " " & a(x)
          '生成各个数的组合,并输出到C列
          n = n + 1
          End If
  Next x, j, i
End Sub

如果需要A+空格+BC 模式请改成a(i) & " " & a(j) & a(x)
是不是觉得直通车的200个关键词太少了，用这个方法一个宝贝写4,500个关键词完全不是问题，当然有不少重复的，不过重复的直通车也加不进去，可以无视之。推广2天没展销量，就可以改掉，一个个尝试总会出爆词。