- ©«¤l
- 129
- ¥DÃD
- 25
- ºëµØ
- 0
- ¿n¤À
- 159
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-24
- ³Ì«áµn¿ý
- 2022-12-12
|
[µo°Ý] ¸ê®Æªº½Æ»s¡B¶K¤W¡A»yªk°ÝÃD
¦U¦ì¦n ·Q½Ð°Ý¤@¨Ç»yªk¤Wªº¿ù»~
¤@¡B¦P¤@ÓÀɮסA¤£¦Psheet¤§¶¡ªº½Æ»s ¶K¤W
With Sheets("¤u§@ªí1")
a = .UsedRange.Rows.com- Sheets("¤u§@ªí1").Range("A1:B" & a).Copy
- Sheets("µ²ªG°Ï").Range("A1").Select
- Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
- , SkipBlanks:=False, Transpose:=False
- Application.CutCopyMode = False
½Æ»s¥N½X End with
§Ú·Q§âSheet¤u§@ªí1ªº ¤w¨Ï¥Î¦C¼Æ ªº¸ê®Æ¡A½Æ»s¶K¤W¨ì Sheetµ²ªG°Ïªº A1
¥i¬O¦b³o¤@¦æ¸ò§Ú»¡¥X¿ù Sheets("µ²ªG°Ï").Range("A1").Select
¬°¤°»ò©O?
¤G¡B¤£¦PÀɮפ§¶¡ªº½Æ»s¡B¶K¤W
°²¨Ï¦³¨âÓÀÉ®× ¤@Ó¥s ¸ê®Æ.xlsx ¤@Ó¥s ÀÉ®×.xlsx
§Ú²{¦b¬O¥Î
Windows("¸ê®Æ.xlsx").Activate
.Range("A1:B3").copy
Windows("ÀÉ®×.xlsx").Activate
.Range("A1").select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
´N¬On¥Î½Ö¡A½Ö´N¥ýActive
©Î¬On¼g«Üªø
e=Workbooks("¸ê®Æ.xlsx").Sheets("¤u§@ªí1").Range("A1:B3").Value
Workbooks("ÀÉ®×.xlsx").Sheets("¤u§@ªí1").Range("A1:B3").Value = e
¦pªGª½±µ±µ¦b¤@°_¦n¹³¤]·|¿ù
¨Ò¦p¡G
Workbooks("ÀÉ®×.xlsx").Sheets("¤u§@ªí1").Range("A1:B3").Value = Workbooks("¸ê®Æ.xlsx").Sheets("¤u§@ªí1").Range("A1:B3").Value
¦]¬°§Ú¬O·s¤â
¦³®ÉÔ¹ï©ó³oÓ´N«Ü§xÂZ
©ú©ú§Ú¤w¸g§i¶D¹q¸£ þÓÀɮתºþÓsheetsªºþÓRange¤F
§Ú´N¥u¬O·QnBÀɮתº³oÓ¦ì¸m = AÀɮתº¬YÓ¦ì¸mªºÈ ¦Ó¤w
¦ý¬O±`±`¥X¿ù
©Î¬O´Nn¥ý¥Î¤@Ó e = ¬Y¬Y¬Y µM«á°é°é°é¦A = e
·d±o§Ú«Ü²V¶Ã
¦A³Â·Ð¦U¦ì¤j¤j¸Ñµª
ÁÂÁÂ |
|