exceL表格直通車組詞方法設(shè)置技巧

很多淘寶開(kāi)店朋友在開(kāi)直通車的時(shí)候，會(huì)因?yàn)檫x詞而頭疼，就算是你買了很多的輔助軟件，你也會(huì)感覺(jué)也從下手。那么直通車的組詞如何自己設(shè)置呢？就算過(guò)一段時(shí)間你要更換關(guān)鍵詞，你也好有一個(gè)順序，一批批的替換、嘗試。這里就給大家介紹用excel的組詞方法。

excel表格

你寶貝的一些屬性詞、熱詞、特征詞

1.EXCEL建立 關(guān)鍵詞的方法，如下圖這樣所示，親記得要一步一步操作哦。

2.打開(kāi)EXCEL ，ALT+F11 。如圖所示，我們稍后會(huì)給出代碼。

3.代碼在這 - -```復(fù)制粘貼進(jìn)入哦 ```雙擊sheet1,將代碼復(fù)制進(jìn)窗口，然后保存。點(diǎn)回到EXCEL表。

Sub zh()  Dim a() As Variant, b As Integer, n As Integer  '定義一個(gè)數(shù)組,兩個(gè)變量  b = WorksheetFunction.CountA(Range("a:a"))  '判斷A列有多少個(gè)數(shù)據(jù)  ReDim a(b)  '重定義數(shù)組大小  For i = 1 To b    a(i) = Range("a" & i)  Next i  '給數(shù)組賦值  For i = 1 To b    n = 1    For j = 1 To b          If i <> j Then          '判斷各個(gè)數(shù)是否相等          Cells(n, i + 2) = a(i)& " " & a(j)          '生成各個(gè)數(shù)的組合,并輸出到C列，上面 a(i) & " " & a(j)表示C列輸出是 關(guān)鍵詞+空格+關(guān)鍵詞。          n = n + 1          End If  Next j, iEnd Sub

然后 按ALT+F8會(huì)看見(jiàn)提示：

4.然后就是excel自動(dòng)組詞的結(jié)果。你可以看一下各種詞，是不是你想要的結(jié)果。

這種方法就是建立宏的過(guò)程，過(guò)程中一定要細(xì)心，耐心哦。