操作方法
打开EXCEL2007工作表
在工作表A列中输入一列数据
按下ALT+F11输入VBA代码如第五步。
插入表单控件并指定到宏的名称。
点击表单控件按钮，就可以按到输入的数据相同的内容被合并了并居中居左显示了。
Sub CombineSameCells() Dim irow As Long, i As Long Application.DisplayAlerts = False With Sheet2 irow = Sheet2.Range("A65536").End(xlUp).Row For i = irow To 2 Step -1 If Sheet2.Cells(i, 1).Value = .Cells(i - 1, 1).Value Then Sheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge Sheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).HorizontalAlignment = xlLeft Sheet2.Range(.Cells(i - 1, 1), .Cells(i, 1)).VerticalAlignment = xlCenter End If Next i End With Application.DisplayAlerts = True End Sub 代码的解释为： 合并单元格命令，宏名称为合并单元格 作用于SHEET2 找到A列有内容的一个单元格并提取出行号 判断如果下一行单元格内容和上一行单元格内容一样的话则进行合并 合并的单元格内容居中居左显示 结束命令