excel VBA快速合并相同内容的单元格

今日将演示如何运用VBA高效合并具有相同内容的单元格。

1、 添加以下代码到VBA编辑器中：==================华丽的分割线-此线不要复制===========Sub 合并相同内容单元格()Dim sheet1 As Worksheet, mSheet As WorksheetDim index!, sheetIndex!, temp, startindex!, index1!, index2!, targetIndex!, sheetCount!, endL!targetIndex = 2 "要合并的单元格所在列startindex = 1 "从第几行开始判断是否合并单元格Set sheet1 = ActiveWorkbook.ActiveSheet "当前工作表index1 = 1index2 = 1endL = 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 IfApplication.DisplayAlerts = TrueEnd Sub==================华丽的分割线-此线不要复制===========

2、 根据自己的需求修改代码中两处位置的参数值：targetIndex = 2 "要合并的单元格所在列startindex = 1 "从第几行开始判断是否合并单元格按 F5 运行，1秒钟完成合并操作