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