网店找关键词方法

1、打开Excel 软件

2、在表格中 输入你产品相关的关键词

3、按住键盘ALT+F11 下面会弹出一个对话框 双击sheet1

4、在弹出空白页中输入一下代码 然后保存[font=&quot]Sub zh猾诮沓靥()[font=&quot]Dim a() As Variant, b As Integ髫潋啜缅er, n As Integer[font=&quot]'[font=&quot]定义一个数组[font=&quot],[font=&quot]两个变量[font=&quot][font=&quot]b = WorksheetFunction.CountA(Range("a:a"))[font=&quot]'[font=&quot]判断[font=&quot]A[font=&quot]列有多少个数据[font=&quot][font=&quot]ReDim a(b)[font=&quot]'[font=&quot]重定义数组大小[font=&quot][font=&quot]For i = 1 To b[font=&quot]a(i) = Range("a" & i)[font=&quot]Next i[font=&quot]'[font=&quot]给数组赋值[font=&quot][font=&quot]For i = 1 To b[font=&quot]n = 1[font=&quot]For j = 1 To b[font=&quot]If i <> j Then[font=&quot]'[font=&quot]判断各个数是否相等[font=&quot][font=&quot]Cells(n, i 2) = a(i) & "" & a(j)[font=&quot]'[font=&quot]生成各个数的组合[font=&quot],[font=&quot]并输出到[font=&quot]C[font=&quot]列，上面[font=&quot]a(i) & " " & a(j)[font=&quot]表示[font=&quot]C[font=&quot]列输出是[font=&quot][font=&quot]关键词[font=&quot][font=&quot]空格[font=&quot][font=&quot]关键词。[font=&quot][font=&quot]n = n 1[font=&quot]End If[font=&quot]Next j, i[font=&quot]End Sub[font=&quot]

5、回到EXCEL表。[然后 按ALT F8会看见提示

6、然后可以看到excel自动组词的结果

7、上面是通过excel二稍僚敉视个关键词的排列组合，下面是三个关键词排列组合的代码[font=&quot]Sub zh()[font=&quot]Dim a() As Vari锾攒揉敫ant, b As Integer, n As Integer[font=&quot]'[font=&quot]定义一个数组[font=&quot],[font=&quot]两个变量[font=&quot][font=&quot]b = WorksheetFunction.CountA(Range("a:a"))[font=&quot]'[font=&quot]判断[font=&quot]A[font=&quot]列有多少个数据[font=&quot][font=&quot]ReDim a(b)[font=&quot]'[font=&quot]重定义数组大小[font=&quot][font=&quot]For i = 1 To b[font=&quot]a(i) = Range("a" &i)[font=&quot]Next i[font=&quot]'[font=&quot]给数组赋值[font=&quot][font=&quot]For i = 1 To b[font=&quot]n = 1[font=&quot]For j = 1 To b[font=&quot]For x = 1 To b[font=&quot]If i <> j And i <> x Andj <> x Then[font=&quot]'[font=&quot]判断各个数是否相等[font=&quot][font=&quot]Cells(n, i 2) = a(i) & "" & a(j) & " " & a(x)[font=&quot]'[font=&quot]生成各个数的组合[font=&quot],[font=&quot]并输出到[font=&quot]C[font=&quot]列[font=&quot][font=&quot]n = n 1[font=&quot]End If[font=&quot]Next x, j, i[font=&quot]End Sub

8、可以了！