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

1、打开EXCEL2007工作表

2、在工作表A列中输入一列数据

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

4、插入表单控件并指定到宏的名称。

5、点击表单控件按钮，就可以按到输入的数据相同的内容被合并了并居中居左显示了。

6、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列有内容的一个单元格并提取出行号

判断如果下一行单元格内容和上一行单元格内容一样的话则进行合并

合并的单元格内容居中居左显示

结束命令