SEO对于很多人来说并不陌生，因为关键字优化，可以使搜索引擎更加容易添加内容。现在也有很多做关键词优化的工具，你也可以不需要懂关键词优化的原理。这里有一份给SEO/SEM做的一张表，具体作用大概是这样的：
A列是一堆用户搜索的东西，B列是SEO/SEM同学不知道根据经验还是什么的罗列出来的关键词（小编已经把关键词乱改了，因为不懂，所以不敢直接照搬人家的东西，内行勿喷）
需求是要把A列的每一条搜索语句，分别归类到所包含的关键词下面。如A2：深圳市机动车置换和报废有什么区别？ 这一句就包含了“置换”和“报废”两个关键词，那这条搜索就被同时归类到【置换】和【报废】关键词下。
1、在Sheet1添加待分类词组和关键词后，点击分组控件。
2、点完之后自动打开Sheet2，展示结果。第一行是关键词，每一个关键词下面是分组的内容。
3、查看未分配到任何一组的搜索语句，即不包含任意关键词的搜索语句。打开Sheet1，此时可看到，已分类的搜索字体已变成灰色，未分类的仍是黑色。
其实还可以更加完善如：没有撤销本次分组功能，没有统计每个关键词下有多少搜索的功能，也没有统计有多少未被分组的搜索的功能，而且有着各种限制如添加1000个关键词肯定就不行了等等，这些留给大家自行研究吧
详细源码：
Sub kwclassification()
‘定义整数变量i
Dim i As Integer
‘for循环，i从2至shee1第2列最后一个非空单元格的行数值
For i = 2 To Sheets("sheet1").Cells(2, 2).End(xlDown).Row
‘将sheet1中，单元格(i,2) 的值，赋予sheet2的单元格(1,i-1)
Sheets("sheet2").Cells(1, i - 1) = Sheets("sheet1").Cells(i, 2)
‘定义一个字符串变量s1
Dim s1 As String
‘将sheet2中，单元格(1,i-1)的值赋予s1
s1 = Sheets("sheet2").Cells(1, i - 1)
‘ 定义整数变量j,a,a赋值2
Dim j As Integer
Dim a As Integer
a = 2
’嵌套for循环，j从2至sheet1第1列最后一个非空单元格的行数值
For j = 2 To Sheets("sheet1").Cells(2, 1).End(xlDown).Row
‘定义一个字符串变量s
Dim s As String
‘将sheet1中，单元格(j,1)的值赋予s
s = Sheets("sheet1").Cells(j, 1)
‘定义一个布尔变量b
Dim b As Boolean
‘调用Excel函数find,从s中找到s1,再用isnumeric函数判断其返回值，并将结果赋值给b
b = IsNumeric(Application.Find(s1, s))
‘如果b的值是true,则sheet2的单元格(a,i-1)的值等于s
同时sheet1的单元格(j,1)的字体颜色编号等于15
且a+1
否则结束if
If b = True Then
Sheets("sheet2").Cells(a, i - 1) = s
Sheets("sheet1").Cells(j, 1).Font.ColorIndex = 15
a = a + 1
End If
‘进行下一次j内循环
Next j
‘进行下一次i外循环
Next i
‘for循环结束后，选中即打开sheet2
Sheets("sheet2").Select
End Sub
