在Excel操作中，有时我们需要将一些相同的内容合并在一个单元格内，如果内容不多，可以一次次的单击合并单元格按钮。但是，有时候我们的内容有很多，这时候重复操作合并单元格显得有些笨拙，那有没有办法快速合并相同项呢？答案是肯定的，下面，我将介绍一些快速合并同类项的方法。
方法一：分类汇总法
1.1 如图，是本次操作的数据源。
1.2
选中数据区域，单击"数据"选项卡-->"分级显示"功能区-->"分类汇总"按钮，弹出"分类汇总"对话框，在"分类字段"字段中选择：类别，在"汇总方式"字段中选择：计数，在"选定汇总项"字段中勾选：类别，单击"确定"出现下图2的结果。
1.3
在A1单元格输入"计数"(任意字符都可以，只要不为空)，选中A1::A13区域，单击"开始"选项卡-->"编辑"功能区"-->"查找和选择"下拉按钮-->"定位条件"，在打开的对话框中选中"空值"，单击"确定"结束，至此，空白单元格就被选中了，如下图：
1.4
然后，单击"开始"选项卡-->"对齐方式"功能区-->"合并后居中"，空白单元格就变成合并单元格了，如下图：
1.5
单击"分类汇总"按钮，单击左下角的"全部删除"取消分类汇总，结果如下图：
1.6
选中A2:A9单元格，单击"格式刷"按钮，然后用格式刷将B2:B9的区域刷一下，就得到想要的结果了，最后将数据区域设置样式，并将辅助列A删除，结果如下图：
方法二：数据透视表法
2.1
选中数据区域，单击"插入"选项卡-->"表格"功能区"-->"数据透视表"，按默认设置生成一张表(也可以在源表上生成数据透视表，依习惯和情况而定)，然后将<类别>和<品名>放在行字段中，将<数量>放在值字段中如下图所示：
2.2
接下来，选中数据透视表区域任意单元格，单击"数据透视表工具-->分析"选项卡-->"数据透视表"功能区"-->"选项"，弹出"数据透视表选项"对话框，
将第一张图和第三张图的红框内容勾选，第二张图的红框内容去掉勾选，结果如第四张图所示：
2.3 单击"数据透视表工具-->设计"选项卡-->"布局"功能区-->"分类汇总"下拉按钮-->选中"不显示分类汇总"即可得到结果，如下图所示：
如果想要在原始数据上合并同类项，只需要使用格式刷将数据透视表的格式刷到原始表格中，具体操作方法一已写明，在此不再赘述。
方法三：VBA
3.1 单击"开发工具"选项卡-->"代码"-->"Visual
Basic"(快捷键Alt+F11)，单击"插入"-->"模块"，将下面代码插入到模块中，使用Alt+F8快捷键即可得到结果。
Sub
MergeItems()
Dim rng
As Range, header As Range, cell As Range
Application.ScreenUpdating
= False
Application.Calculation
= xlCalculationManual
Application.DisplayAlerts
= False
Set rng =
ActiveSheet.Range("A1", Range("A" &
Rows.Count).End(xlUp))
Set
header = rng(1)
For Each
cell In rng.Offset(1, 0)
If cell <> cell.Offset(-1, 0)
Then
Range(header, cell.Offset(-1, 0)).Merge
Set header
= cell
End If
Next
Application.ScreenUpdating
= True
Application.Calculation
= xlCalculationAutomatic
Application.DisplayAlerts
= True
End
Sub
欢迎大家关注：office和python之家，分享Excel基本技巧、图形与图表、数据透视表、SQL、VBA，Python语法知识、爬虫、数据交互、GUI等知识。
