¦X¨ÖÀx¦s®æ

caichen3

¦p¦ó¥Hµ{¦¡½X´¡¤J¦X¨ÖÀx¦s®æ©O¡H¡H

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

Hsieh

¦^´_ 10# jean0165
Range([G10], [G10].Offset(a, b)).Merge

jean0165

¦^´_ 9# register313


    ÁÂÁ§Aªº¦^ÂÐ!!

register313

¦^´_ 7# jean0165

³]G10¬°­ì°ò·ÇÀx¦s®æ

Range([G10], [G10].Offset(a, b)).MergeCells = True
a:¼Æ­È,a¬°¥¿:ªí©¹¤UÂX®i¤§®æ¼Æ,a¬°­t:ªí©¹¤WÂX®i¤§®æ¼Æ
b:¼Æ­È,b¬°¥¿:ªí©¹¥kÂX®i¤§®æ¼Æ,b¬°­t:ªí©¹¥ªÂX®i¤§®æ¼Æ

Hsieh

¦^´_ 7# jean0165

¦X¨Ö°Ê§@ªºµ{¦¡½X¥²¶·¤F¸Ñ§Aªº°ò·ÇÂI¦b­þ?
³o¬O¦p¦ó¨ú±o¦X¨Ö½d³òªº¥²­n±ø¥ó
°ÝÃD°Ý±o¤Ó¹LªÅ¬}¡A±o¤£¨ì¥¿½T¸Ñµª

jean0165

¦^´_ 6# register313


    «ö·Ó¤W­±ªºµ{¦¡½X¡A±N·|¦X¨Ö¥ª¤è¤C¦CÀx¦s®æ¡A½Ð°Ý¯à³]©w¦X¨Ö¥ªÃä/¥kÃ䪺Àx¦s®æ¶Ü??

register313

¦^´_ 5# caichen3

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

caichen3

°²¨Ï§Ú³]©w«ö¤@¦¸«ö¶s¡A´¡¤J¤@¦C¨Ã¥B¦X¨Ö7¦æªºÀx¦s®æ©O¡HÁÂÁ¡I

Hsieh

¦^´_ 3# caichen3
­nª¾¹D§A­n¦X¨Ö´X¦C´XÄæ?