小苹果园

标题: excel直通车关键词组合教程 [打印本页]

作者: jingjing 时间: 2019-7-25 00:22
标题: excel直通车关键词组合教程
利用Excel工具筛选直通车关键，并且组合关键词的教程，您根本不用管代码多复杂，直接复制进去就行了。按步骤操作。相当简单！您用旺旺联系我也是这样跟你说的。代码都在后面。只要复制粘贴就行。谢谢！

内容来自

菁菁网内容管理系统
第五步；上面这个表格不用去管他了。再进刚才输入关键词的那个表格，鼠标放在表格里，按ALT+F8，选定宏，如下图
第六步；没有了。直接关键词出来了，如下图：菁菁好，好菁菁网

菁菁好，好菁菁网
  本文来自菁菁网
两个词组合的代码如下：内容来自

Sub zh()
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 菁菁好，好菁菁网
  taoqao.com

三个词组合的代码如下： taoqao.com

Sub zh()
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 代码是SUB开头，SUB结尾。直接复制进去就行了的。

欢迎光临小苹果园 (http://bbs.lingsky.com/)