RSS订阅 | TAGS | 工具箱 | 繁體

office Excel应用

当前位置:奔牛网>office>Excel应用>EXCEL用VBA宏对关键词进行组合适合直通车关键词组合宏

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

时间:2017-06-09 | 来源:互联网 |作者:匿名 |阅读:|
在开直通车的时候经常需要对关键词进行组合尝试,如果一个个手工操作,那非常繁琐,而且很容易遗漏,这里就用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 本文来自奔牛网Bnxb.com
          '判断各个数是否相等
          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
  '定义一个数组,两个变量

奔牛网Bnxb.com


  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 奔牛网Bnxb.com
  Next x, j, i
End Sub

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