硬件设备：计算机
操作系统：Windows 8
办公软件：excel 2010
选择要批量合并的单元格区域，点击【数据】、【分类汇总】。
在弹出的提示框里边均点击【确定】。
按下键盘上面的【F5】键进行定位，点击【定位条件】。
定位条件选择“空值”，然后点击【确定】。
点击【开始】，【合并后居中】。
选择A1单元格，点击【数据】、【分类汇总】。
选择A列，按下【Ctrl+C】组合键进行复制。
选择B1单元格，单击右键，在“选择性粘贴”里边选择“格式”。
将空白的A列单元格删除，excel工作表相同的单元格批量合并完成。
点击【开发工具】、【Visual Basic】，或者按下【Alt+F11】组合键调出VBA编辑器。
在VBA编辑器左侧的VBA工程项目下方双击Sheet1，再输入以下VBA程序代码。Sub hebing()Dim i1, i2, i3On Error Resume Next '忽略运行过程中可能出现的错误Application.DisplayAlerts = False '关闭报警提示Set mysheet1 = ThisWorkbook.Worksheets('Sheet1') '定义工作表Sheet1 For i1 = 2 To 10000 '大约要执行1万次循环 If mysheet1.Cells(i1, 1) <> '' Then '如果单元格不是空白，则 i2 = Application.WorksheetFunction.CountIf(mysheet1.Range('A2:A10000'), _ mysheet1.Cells(i1, 1)) '获取存在相同内容的单元格个数 mysheet1.Range(mysheet1.Cells(i1, 1), mysheet1.Cells(i1 + i2 - 1, 1)).Merge '合并单元格 i3 = 0 Else i3 = i3 + 1 '如果是空白单元格，则累计1 End If If i3 > 100 Then '如果连续存在100个空白单元格，则 Exit For '退出For循环 End IfNextApplication.DisplayAlerts = True '恢复报警提示 End Sub
检查无误后，在VBA编辑器的功能区里面点击“运行”图标，运行VBA程序。
回到excel工作表界面，将会看到相同内容的单元格已经被合并。
方法一：使用数据分类汇总处理1、选择要批量合并的单元格区域，点击【数据】、【分类汇总】。2、在弹出的提示框里边均点击【确定】。3、按下键盘上面的【F5】键进行定位，点击【定位条件】。4、定位条件选择“空值”，然后点击【确定】。5、点击【开始】，【合并后居中】。6、选择A1单元格，点击【数据】、【分类汇总】。7、汇总项里边全部勾选，之后点击【全部删除】。8、选择A列，按下【Ctrl+C】组合键进行复制。9、选择B1单元格，单击右键，在“选择性粘贴”里边选择“格式”。10、将空白的A列单元格删除，相同单元格批量合并完成。方法二：使用VBA程序处理1、点击【开发工具】、【Visual Basic】。2、在Sheet1的代码框里边输入VBA程序代码。3、在VBA编辑器的功能区里面点击“运行”图标。4、相同内容的单元格已经被合并。
要合并相同内容的单元格前，先通过排序将它们排到一起。
操作界面及功能可能因操作系统、软件版本不同而存在差异。
VBA程序里边含有下划线（_）主要连接下边的语句，复制到VBA编辑器代码框里面时可能会有空白行出现。粘贴时把下划线（_）下面的空白行删除，以免报错。