前言：新進(jìn)入一個類目時，怎樣快速調(diào)研該類目產(chǎn)品的關(guān)鍵詞埋詞方式和標(biāo)題布局呢？通常我們會將主要的關(guān)鍵詞進(jìn)行顏色或加粗標(biāo)記（如下圖），數(shù)據(jù)比較多的時候，這項(xiàng)工作就非常耗時，下面展示的是如何利用宏對表格內(nèi)的關(guān)鍵詞進(jìn)行批量標(biāo)記，以及個人在寫標(biāo)題的一些參照角度。利用宏進(jìn)行關(guān)鍵詞標(biāo)記首先打開我們下載的類目產(chǎn)品信息（下載渠道：賣家精靈——選市場——查看該類目商品列表——導(dǎo)出）為了便于觀看，我們只保留產(chǎn)品圖片、ASIN、品牌和商品標(biāo)題列利用詞頻統(tǒng)計(jì)工具得到《詞頻統(tǒng)計(jì)表格》（/tools-wordcounter）已知當(dāng)前詞頻較大的關(guān)鍵詞，在表格中標(biāo)記紅色和綠色，并進(jìn)行加粗PS：應(yīng)用宏之前，請備份子表，運(yùn)行宏無法快速回到上一步打開表格的開發(fā)工具——VB宏（VB編輯器/查看代碼-插入-模塊，與此功能一致）命名之后點(diǎn)擊創(chuàng)建進(jìn)入VB宏窗口如圖標(biāo)記主要共性關(guān)鍵詞為紅色刪除圖中代碼，并復(fù)制以下代碼SubChangeMultipleWordsColor()

DimrngAsRange

DimcellAsRange

DimiAsLong

DimstrAsString

Dimwords()AsString

DimwordAsVariant

Setrng=Range("D:D")'將范圍更改為您想要修改的單元格范圍

words=Split("Dash,Cam,Car,Cars,Camera,Recording",",")'將要修改顏色的單詞列表，用逗號分隔

ForEachcellInrng

str=cell.Value

ForEachwordInwords

Fori=1ToLen(str)-Len(word)+1

IfMid(str,i,Len(word))=wordThen

cell.Characters(i,Len(word)).Font.Color=RGB(255,0,0)'將文字顏色設(shè)置為紅色

EndIf

Nexti

Nextword

Nextcell

EndSub按F5運(yùn)行宏，得到如下表，共性關(guān)鍵詞已經(jīng)被標(biāo)記為紅色標(biāo)記主要屬性關(guān)鍵詞為綠色重復(fù)步驟2），更換關(guān)鍵詞為主要屬性關(guān)鍵詞，更換顏色為綠色，并復(fù)制以下代碼SubChangeMultipleWordsColor()

DimrngAsRange

DimcellAsRange

DimiAsLong

DimstrAsString

Dimwords()AsString

DimwordAsVariant

Setrng=Range("D:D")'將范圍更改為您想要修改的單元格范圍

words=Split("Front,Night,Vision,Parking,Rear,WiFi,GPS",",")'將要修改顏色的單詞列表，用逗號分隔

ForEachcellInrng

str=cell.Value

ForEachwordInwords

Fori=1ToLen(str)-Len(word)+1

IfMid(str,i,Len(word))=wordThen

cell.Characters(i,Len(word)).Font.Color=RGB(28,152,28)'將文字顏色設(shè)置為綠色

EndIf

Nexti

Nextword

Nextcell

EndSub按F5運(yùn)行宏，得到如下表，主要屬性關(guān)鍵詞已經(jīng)被標(biāo)記為綠色標(biāo)記主要關(guān)鍵詞為加粗添加宏的新模塊，并復(fù)制以下代碼SubBoldMultipleWordsWithCode()

DimrngAsRange

DimcellAsRange

DimiAsLong

DimstrAsString

Dimwords()AsString

DimwordAsVariant

Setrng=Range("D:D")'將范圍更改為您想要修改的單元格范圍

words=Split("Dash,Cam,Car,Cars,Camera,Recording,Front,Night,Vision,Parking,Rear,WiFi,GPS",",")'將要加粗并帶有格式代碼的單詞列表

ForEachcellInrng

str=cell.Value

ForEachwordInwords

Fori=1ToLen(str)-Len(word)+1

IfMid(str,i,Len(word))=wordThen

cell.Characters(i,Len(word)).Font.Bold=True'將文字加粗

EndIf

Nexti

Nextword

Nextcell

EndSub按F5運(yùn)行宏，得到如下表，主要關(guān)鍵詞已經(jīng)被標(biāo)記為加粗以上方法同樣可以應(yīng)用于反查鏈接文案的埋詞查看前80字符的布局由于手機(jī)端展示前80字符，我們可以利用分列將標(biāo)題前80字符摘出來看，然后