EXCEL2007中如何实现相同内容单元格自动合并

1、打开EXCEL2007工作表

3、按下ALT+F11输入VBA代码如第五步。

6、Sub CombineSameCells()Dim irow As Lo艘绒庳焰ng, i As LongApplication.DisplayAlerts = FalseWith Sheet2irow = Sheet2.Range("A65536").End(xlUp).RowFor i = irow To 2 Step -1If Sheet2.Cells(i, 1).Value = .Cells(i - 1, 1).Value ThenSheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).MergeSheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).HorizontalAlignment = xlLeftSheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).VerticalAlignment = xlCenterEnd IfNext iEnd WithApplication.DisplayAlerts = TrueEnd Sub代码的解释为：合并单元格命令，宏名称为合并单元格作用于SHEET2找到A列有内容的一个单元格并提取出行号判断如果下一行单元格内容和上一行单元格内容一样的话则进行合并合并的单元格内容居中居左显示结束命令