excel直通车关键词组合教程
利用Excel工具筛选直通车关键，并且组合关键词的教程，您根本不用管代码多复杂，直接复制进去就行了。按步骤操作。相当简单！您用旺旺联系我也是这样跟你说的。代码都在后面。只要复制粘贴就行。谢谢！http://www.taoqao.com/show.php?http://img03.taobaocdn.com/sns_album/i3/T1g1ybXk0pXXb1upjX.jpg
内容来自
菁菁网内容管理系统
第五步；上面这个表格不用去管他了。再进刚才输入关键词的那个表格，鼠标放在表格里，按ALT+F8，选定宏，如下图
第六步；没有了。直接关键词出来了，如下图： 菁菁好，好菁菁网
http://www.taoqao.com/show.php?http://img04.taobaocdn.com/sns_album/i4/T1pfKbXl4hXXb1upjX.jpg
菁菁好，好菁菁网
本文来自菁菁网
两个词组合的代码如下： 内容来自
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 ij 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 ij And ix And jx 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结尾。直接复制进去就行了的。
**** Hidden Message *****
页:
[1]