- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-10-30
|
¥»©«³Ì«á¥Ñ samwang ©ó 2021-6-23 13:13 ½s¿è
¦^´_ 10# duck_simon
¦]¬°§A§âµ{¦¡½X©ñ¦bsheet1 no¡A©Ò¥Hnקï¦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 |
|