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

[µo°Ý] ½Ð±Ð VBA

¥»©«³Ì«á¥Ñ samwang ©ó 2021-6-23 13:13 ½s¿è

¦^´_ 10# duck_simon

¦]¬°§A§âµ{¦¡½X©ñ¦bsheet1 no¡A©Ò¥H­n­×§ï¦p¤U¡AÁÂÁÂ

Private Sub CommandButton5_Click()
' ¥¨¶°23 ¥¨¶°
' ®t­È
'
    Range("AE1").Select
    Selection.Copy
    Sheets("®t­È").Select
    Sheets("®t­È").Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("®t­È").Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Sheets("®t­È").Range("B1").Select
End Sub

©ÎªÌ¥i¥Hª½±µ±N§A­ì¥»ªº"A1 ¬O¥Ñ¥L¤u§@ªí copy¹L¨Ó"¡A¨º¬qµ{¦¡½Xª½±µcopy ¨ìBÄ榳¼Æ­Èªº³Ì«á¤@­Ó¦p¤U
Sub test()
Sheets("no").[AE1].Copy Sheets("®t­È").[B65536].End(xlUp).Offset(1, 0)
End Sub

TOP

¦^´_ 10# duck_simon

ºû2 v1.zip (68.72 KB)

TOP

«D±`·PÁ¤G¦ì¥ý¶i«ü¾É..¸U¤À·PÁÂ..

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD