- ©«¤l
- 23
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 39
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-10-27
- ³Ì«áµn¿ý
- 2021-5-13
|
¦^´_ 6# GBKEE
©êºp¥¼¤Î®É¦^ÂÐ
·PÁ¨â¦ì... (²Û·\±»±)
¡@³ºµM²´ªá·í¿ù»~
·QÄ~Äò¦V½Ñ¦ì½Ð±Ð
1. ¦b²Ä¥|¦æ¤¤ªº" .Range(.Cells(1, 1), .Cells(4, 72)).Copy A "ªº·N¸q¬°¦ó?- With Workbooks.Add
- Set A = .Sheets(1).Cells(1, 1) '«ü©w·s¬¡¶Ã¯ªº²Ä¤@Ó¤u§@ªíA1
- With Workbooks("Test.xls").Sheets(1)
- .Range(.Cells(1, 1), .Cells(4, 72)).Copy A '½Æ»sTEST.XLSªº²Ä¤@±i¤u§@ªí³¡¤À½d³ò¨ì·s¬¡¶Ã¯¤¤
- End With
- End With
½Æ»s¥N½X Y³]" .Range(.Cells(1, 1), .Cells(4, 72))" ¬°B
B.Copy A ¬O "copy B to A"¶Ü?
2. Y·Q¥t¥~¦b"Test.xls"§@³v¦æ§PÂ_
¥Oµ²ªG= trueªº¸Ó¦Ccopy to ·s¶}ªºWorkbook
¦Û¤v¸£³U¸Ìªº·§©À¹³³o¼Ë...- With Workbook("Test.xls").Sheets(1)
- for i = 1 to RowEnd 'RowEnd¬°¾ãÓSheet(1)¤¤ªº³Ì«á¤@¦C'
- If true then
- Rows(i).copy
- With èè·s¶}ªºworkbook
- '±N©óWorkbook("Test.xls").Sheets(1)¤¤copyªºRow
- 'paste¦b New Workbookªº³Ì«á¤@¦C¤§«á
- End With
- End if
- Next i
- End With
½Æ»s¥N½X ÁÙ¬O»¡«Øij±j¨î¥ý´À¨Ï¥ÎªÌ±N·sadd ªº workbook¦sÀÉ
¦A±N¥¦¥s¥X¨Ó?
·PÁÂ! |
|