前言：新进入一个类目时，怎样快速调研该类目产品的关键词埋词方式和标题布局呢？通常我们会将主要的关键词进行颜色或加粗标记（如下图），
数据比较多的时候，这项工作就非常耗时，下面展示的是如何利用宏对表格内的关键词进行批量标记，以及个人在写标题的一些参照角度。
利用宏进行关键词标记
首先打开我们下载的类目产品信息
（下载渠道：卖家精灵——选市场——查看该类目商品列表——导出）
为了便于观看，我们只保留产品图片、ASIN、品牌和商品标题列
利用词频统计工具得到《词频统计表格》
（/tools-wordcounter）
已知当前词频较大的关键词，在表格中标记红色和绿色，并进行加粗
PS：应用宏之前，请备份子表，运行宏无法快速回到上一步
打开表格的开发工具——VB宏
（VB编辑器/查看代码-插入-模块，与此功能一致）
命名之后点击创建
进入VB宏窗口如图
标记主要共性关键词为红色
删除图中代码，并复制以下代码
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)将文字颜色设置为红色
EndIf
Nexti
Nextword
Nextcell
EndSub
按F5运行宏，得到如下表，共性关键词已经被标记为红色
标记主要属性关键词为绿色
重复步骤2），更换关键词为主要属性关键词，更换颜色为绿色，并复制以下代码
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)将文字颜色设置为绿色
EndIf
Nexti
Nextword
Nextcell
EndSub
按F5运行宏，得到如下表，主要属性关键词已经被标记为绿色
标记主要关键词为加粗
添加宏的新模块，并复制以下代码
SubBoldMultipleWordsWithCode()
DimrngAsRange
DimcellAsRange
DimiAsLong
DimstrAsString
Dimwords()AsString
DimwordAsVariant
Set