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      * (°õ¦æ«e¡A´å¼Ð¦¹®É°±¯d¦b D2 Äæ¦ì)
' 3        b3
' 4        b4
' 5        b5
' 6


'      A   B   C   D   E   F   G   H   I   J   K
' 1        b1
' 2                * (°õ¦æ§¹²¦´å¼Ð¦¹®É¨ÌµM°±¯d¦b D2 Äæ¦ì¡AµM­ì¥»¤§ B2 Äæ¦ì«h¤U²¾¤@¦C¡A¥»¦æ A2:G2 «h¦X¨Ö¦¨¤@Äæ)
' 3        b2
' 4        b3
' 5        b4
' 6        b5

·PÁ register313 «e½úªº»¡©ú¡I