利用VB宏进行关键词批量标记.docx

前言：新进入一个类目时，怎样快速调研该类目产品的关键词埋词方式和标题布局呢？通常我们会将主要的关键词进行颜色或加粗标记（如下图），

数据比较多的时候，这项工作就非常耗时，下面展示的是如何利用宏对表格内的关键词进行批量标记，以及个人在写标题的一些参照角度。

利用宏进行关键词标记

首先打开我们下载的类目产品信息

（下载渠道：卖家精灵——选市场——查看该类目商品列表——导出）

为了便于观看，我们只保留产品图片、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