VBA 单列合并单元格经典代码

Sub 合并单元格() Dim i As Integer, j%, rng As Range,strng as range Application.DisplayAlerts = False i = Cells(Rows.Count, 1).End(xlUp).Row set  strng =Application.InputBox("请选择要合并区域的任一单元格", "选取提示", Type:=8) strow=3'设置开始行,假设标题行有两行 cl=Chr(strng.column + 64) For j = i To 3 Step -1   Set rng = Range(cl & j)   If rng = rng.Offset(-1) Then     rng.Offset(-1).Resize(2).Merge   End If Next Application.DisplayAlerts = True End Sub