excel vba 自动合并单元格

excel vba 自动合并单元格

Sub test()
Dim i%
For i = 15 To 2 Step -1
    If Cells(i, 1) = "" Then Range("a" & i - 1 & ":a" & i).Merge
Next
End Sub

（将合并单元格中的数据也合并）
比如这是你要合并两个单元格里的数据,做法如下
A       B      C  
255    8146 
在C1单元格里输入=A1&""&B1
注意,在两个双引号里不能有空格,否则就会变成 255 8146

（多元合并，且保留多元数据）
Sub 合并同类项()
If Selection.Columns.Count > 1 Then MsgBox "只能对单列操作，请重新选择区域!": Exit Sub
Selection.Offset(0, 1).EntireColumn.Insert
With Selection
For i = .Cells.Count To 2 Step -1
If .Cells(i) = .Cells(i - 1) Then Range(.Cells(i).Offset(0, 1), .Cells(i - 1).Offset(0, 1)).Merge
Next
Selection.Offset(0, 1).Copy
.PasteSpecial xlPasteFormats
.Offset(0, 1).EntireColumn.Delete
End With
End Sub

3、