網店找關鍵詞方法?

大家開網店有沒有遇到過找關鍵詞非常頭疼呢 是啊 挖掘關鍵詞可謂要犧牲多少個腦細胞啊 呵呵 其實很簡單 只要有方法 找關鍵詞並不難 下面教大家怎麼做

工具/原料

辦公EXCEL

方法/步驟

開啟Excel 軟體

在表格中 輸入你產品相關的關鍵詞

按住鍵盤ALT+F11 下面會彈出一個對話方塊 雙擊sheet1

在彈出空白頁中輸入一下程式碼 然後儲存

[font=&quot]Sub zh()

[font=&quot]Dim a() As Variant, 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]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]

回到EXCEL表。[然後 按ALT F8會看見提示

然後可以看到excel自動組詞的結果

上面是通過excel二個關鍵詞的排列組合，下面是三個關鍵詞排列組合的程式碼

[font=&quot]Sub zh()

[font=&quot]Dim a() As Variant, 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

可以了！