ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Æ»sÀx¦s®æ:Aªº­È, ¨Ã¶K¦bÀx¦s®æC (C = «ü©wÀx¦s®æB¸g«ö¤Uctrl+¤U«áªº¤U¤è¤@®æ)

[µo°Ý] ½Æ»sÀx¦s®æ:Aªº­È, ¨Ã¶K¦bÀx¦s®æC (C = «ü©wÀx¦s®æB¸g«ö¤Uctrl+¤U«áªº¤U¤è¤@®æ)

½Ð°Ý¤@¤U §Ú·Q­n±N

Sheets("¸ê®Æ³B²z­¶­±") ¤¤ªº B2Àx¦s®æªº­È
½Æ»s¶K¤W¨ì
Sheets("¥D­¶­±") ¤¤ªº Z2Àx¦s®æ«ö¤Uctrl + ¤U ªº¤U­±¤@®æ
(¥Î³~: ¦Û°Ê¦V¤Uµn¿ý¸ê®Æ)

½Ð°Ý¦U¦ì±M®a¸Ó¦p¦ó¼g©O?

Sheets("¸ê®Æ³B²z­¶­±").Range("B2").Copy
Sheets("¥D­¶­±").Range("Z2").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues

¥Ø«e¹Á¸Õ³o¼Ë¤l¨S¿ìªk°õ¦æ

·PÁ¦^ÂÐ!

¦^´_ 1# andrew12372


    Sub ex()

    Sheets("¸ê®Æ³B²z­¶­±").Range("b2").Copy '·j´M­n½Æ»sªº¸ê®Æ®æ
    Set wsTarget = Sheets("¥D­¶­±") '­n¶K¤Wªº¬¡­¶
        lTargetRow = wsTarget.Cells(Rows.Count, "Z").End(xlUp).Row + 1 'ZÄæ³Ì«á¤@¦C¸ê®Æ+1
        wsTarget.Cells(lTargetRow, "Z").PasteSpecial Paste:=xlPasteValues '¦b¤W¦CZÄæ+1«á¸ê®Æªº¦C¼Æ,¦AZÄæ¶}©l¶K¤W
End Sub

TOP

¦^´_ 2# starry1314


   
·PÁÂstarry1314,

¤S¾Ç¨ì¤@©Û¤F!!

ÁÂÁ§A!!

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD