©R¥O«ö¶s·í¤¤,¦p¦ó¯à±NSheet1½Æ»s¨ìSheet2
- ©«¤l
- 25
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-16
- ³Ì«áµn¿ý
- 2024-3-7
|
©R¥O«ö¶s·í¤¤,¦p¦ó¯à±NSheet1½Æ»s¨ìSheet2
©R¥O«ö¶s·í¤¤,¦p¦ó¯à±NSheet1½Æ»s¨ìSheet2, ¥H¤U¼gªk·|¥X²{¿ù»~, ¸Ó«ç»ò¼g¤~¦n?
Private Sub CommandButton1_Click()
Sheets("Sheet1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet1").Select
Range("A11").Select
ActiveSheet.Paste
End Sub |
|
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-16
- ³Ì«áµn¿ý
- 2024-3-7
|
Private Sub CommandButton1_Click()
Sheets("Sheet1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select '==>·PÁ«ü¥¿¿ù»~
Range("A11").Select
ActiveSheet.Paste
End Sub
¥i¬O, §Ú¬O¦bCommandButton1_Click()ªº±¡ªp¤U°õ¦æ·|¦³,
°õ¦æ¶¥¬q¿ù»~'1004'
Class Range ªºSelect¤èªk¥¢±Ñ
½Ð±Ð¥ý¶i,¦p¦ó¸Ñ. |
|
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-16
- ³Ì«áµn¿ý
- 2024-3-7
|
¦hÁ«üÂI, §Ú·|¦h¦h°Ñ¦Ò·s¤â VBA ¤Jªù±`¨£°ÝÃD.
½Ð±Ð¥ý¶i,
¦pµ{¦¡½X¦bSheet3
3#ªº02.Sheets("Sheet1").Select, n¦p¦óקï |
|
|
|
|
|
|
- ©«¤l
- 25
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-2-16
- ³Ì«áµn¿ý
- 2024-3-7
|
½Ð±Ð¥unRange("A1"¨ì"A10"), ¨Ï¥ÎSheets("Sheet1").Range("A1").CurrentRegion.Copy Sheets("Sheet2").Range("A11")ªº¼Ò¦¡¸Ó¦p¦óªí¹F, ·PÁ¦A·PÁÂ! |
|
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 8# openpc
Sheets("Sheet1").Range("A1:A10").Copy Sheets("Sheet2").Range("A11")
©Î
Sheets("Sheet1").Range("A1", "A10").Copy Sheets("Sheet2").Range("A11")
©Î
Sheets("Sheet1").Range("A1").Resize(10, 1).Copy Sheets("Sheet2").Range("A11")
¥þ³¡¶K¤W |
|
|
|
|
|
|