[5分]关于EXCEL合并单元格

Sub 选中列并合并该列相邻且内容相同的单元格()
Dim i, j, k As Double
i = ActiveCell.Row
k = i
j = ActiveCell.column
Application.DisplayAlerts = False
Do Until Cells(i, j).Value = ""
    If Cells(i + 1, j).Value <> Cells(i, j).Value Then
        Range(Cells(k, j), Cells(i, j)).Merge
        k = i + 1
    End If
    i = i + 1
Loop
Application.DisplayAlerts = True

End Sub

说明：再给你示例这种方法，在excel里面录制一个“宏”（在模块里），宏名自定义（这里取作“选中列并合并该列相邻且内容相同的单元格”），将上述代码复制进去。具体使用方法：比方说你要合并A列中内容一致且邻近的单元格，则选中A列，再“工具”--“宏”--“宏”，执行你刚才定义的宏就可以了，当然，你还可以自建一按钮，通过点击按钮来执行该宏。