怎么批量合并excel表格中相同内容

1、选择要批量合并的单元格区域，点击【数据】、【分类汇总】。

2、在弹出的提示框里边均点击【确定】。

3、按下键盘上面的【F5】键进行定位，点击【定位条件】。

4、定位条件选择“空值”，然后点击【确定】。

5、点击【开始】，【合并后居中】。

6、选择A1单元格，点击【数据】、【分类汇总】。

7、汇总项里边全部勾选，之后点击【全部删除】。

8、选择A列，按下【Ctrl+C】组合键进行复制。

9、选择B1单元格，单击右键，在“选择性粘贴”里边选择“格式”。

10、将空白的A列单元格删除，excel工作表相同的单元格批量合并完成。

1、点击【开发工具】、【Visual Basic】，或者按下【Alt+F11】组合键调出VBA编辑器。

2、在VBA编辑器左侧的VBA工程项目下方双击Sheet1，再输入以下VBA程序代码。

Sub hebing()

Dim i1, i2, i3

On 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 If

Next

Application.DisplayAlerts = True '恢复报警提示

End Sub

3、检查无误后，在VBA编辑器的功能区里面点击“运行”图标，运行VBA程序。

4、回到excel工作表界面，将会看到相同内容的单元格已经被合并。

1、方法一：使用数据分类汇总处理

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、相同内容的单元格已经被合并。