工作中经常遇到需要合并一列中相同的数据合并到一个单元格中，年终了报表上经常遇到不同的组别，人数又不同，如果是一个一个合并特别慢，今天教大家如何使用VBA一键合并！
工具/原料
Excel表格
电脑
方法/步骤
1、打开表格，选中Sheet点击鼠标右键，选中查看代码，如果是熟练的可以直接用F11代开，VBA界面；如图所示：
2、在VBA界面，选中heet，点击鼠标右键，依次选中【插入】【模块】，如图所示，这一步就是再表格中插入代码步骤；然后将代码粘贴再模块界面；代码如下：Sub合并相同单元格()'请先选择一整列Application.DisplayAlerts=FalseApplication.ScreenUpdating=FalseWithSelection.SubtotalGroupBy:=1,Function:=xlCount,TotalList:=Array(1),_Replace:=True,PageBreaks:=False,SummaryBelowData:=True'分类汇总.Offset(,-1).SpecialCells(xlCellTypeBlanks).Merge'合并空白单元格.RemoveSubtotal'删除分类汇总.Offset(,-1).Copy.PasteSpecialPaste:=xlPasteFormats,Operation:=xlNone,_SkipBlanks:=False,Transpose:=False'格式刷.Offset(,-1).DeleteShift:=xlToLeft'删除列EndWithApplication.DisplayAlerts=TrueApplication.ScreenUpdating=TrueEndSub
3、然后插入一个自己喜欢的图形，点击左上角的插入图形，选择自己喜欢的图形插入，编辑好文字，备注好这个单元格的功能，然后点击右键选择【指定宏】指定好，刚刚设置的VBA；
4、接下来这一步不要着急点击图形运行命令，需要先选中A列，然后点击图形，运行VBA命令，这样就自动合并相同的项目了！
