excel VBA快速合并相同内容的单元格
1、添加以下代码到VBA编辑器中：
==================华丽的分割线-此线不要复制===========
Sub 合并相同内容单元格()
Dim sheet1 As Worksheet, mSheet As Worksheet
Dim index!, sheetIndex!, temp, startindex!, index1!, index2!, targetIndex!, sheetCount!, endL!
targetIndex = 2 '要合并的单元格所在列
startindex = 1 '从第几行开始判断是否合并单元格
Set sheet1 = ActiveWorkbook.ActiveSheet '当前工作表
index1 = 1
index2 = 1
endL = sheet1.UsedRange.Rows.count '获取表的总行数
Application.DisplayAlerts = False
'endL = zuSheet.Range("a1000").End(xlUp).Row '获取表某一列有数据的总行数
For index = startindex To endL '工作表构件列表循环
If temp = sheet1.Cells(index, targetIndex) Then
index2 = index
Else
If index1 <> index2 Then
sheet1.Range(sheet1.Cells(index1, targetIndex), sheet1.Cells(index2, targetIndex)).Merge '合并
End If
index1 = index
index2 = index
End If
temp = sheet1.Cells(index, targetIndex)
Next
If index1 <> index2 Then
sheet1.Range(sheet1.Cells(index1, targetIndex), sheet1.Cells(index2, targetIndex)).Merge '合并
End If
Application.DisplayAlerts = True
End Sub
==================华丽的分割线-此线不要复制===========
2、根据自己的需求修改代码中两处位置的参数值：
targetIndex = 2 '要合并的单元格所在列
startindex = 1 '从第几行开始判断是否合并单元格
按 F5 运行，1秒钟完成合并操作
3、不懂得如何运行VBA的请参照：