Hsieh

回復 10# jean0165
Range([G10], [G10].Offset(a, b)).Merge

c_c_lai

Sub Test()
    Selection.EntireRow.Insert
    Range("A" & Selection.Row).Resize(1, 7).MergeCells = True
End Sub

'      A   B   C   D   E   F   G   H   I   J   K
' 1        b1
' 2        b2      * (執行前，游標此時停留在 D2 欄位)
' 3        b3
' 4        b4
' 5        b5
' 6


'      A   B   C   D   E   F   G   H   I   J   K
' 1        b1
' 2                * (執行完畢游標此時依然停留在 D2 欄位，然原本之 B2 欄位則下移一列，本行 A2:G2 則合併成一欄)
' 3        b2
' 4        b3
' 5        b4
' 6        b5

感謝 register313 前輩的說明！