[µo°Ý] ½Æ»s¤£¦P¬¡­¶Ã¯¤¤¯S©wÀx¦s®æ

caichen3

½Ð°Ý¦U¦ì¤j¤j¡A¦p¦ó±NÀÉ®×Aªº¬Y½d³òÀx¦s®æA1:B6¡A½Æ»s¨ìÀÉ®×BªºÀx¦s®æA1:B6©O¡H

GBKEE

¦^´_ 1# caichen3

1. Option Explicit
   
2. Sub Ex()
   
3.     Workbooks("ÀÉ®×A").Sheets("sheet1").[A1:B6].Copy Workbooks("ÀÉ®×B").Sheets("sheet1").[A1]
   
4. End Sub

½Æ»s¥N½X

caichen3

·PÁÂG¤j¤j : )

caichen3

½Ð°Ý¤j¤j¡A¶i¦æ¤£¦P¬¡­¶Ã¯¤§¶¡ªº½Æ»s°Ê­Ó¡A¬O¤£¤G­Ó¬¡­¶Ã¯³£­n¦b¶}±Òªºª¬ºA©O¡H
³]³]±N a.xls ªºÀx¦s®æ A2:B10 ½Æ»s©ó b.xlsªºÀx¦s®æA2¤¤¡A¸Ó¦p¦ó©O

GBKEE

¦^´_ 4# caichen3
¬Oªº:  ¤G­Ó¬¡­¶Ã¯³£­n¦b¶}±Òªºª¬ºA¤U

caichen3

¦ba.xls¤¤³]¸m«ö¶s¡A«ö¤U«ö¶s«á¡A±Na.xls¤¤Àx¦s®æ A2:B10 ½Æ»s©ó b.xlsªºÀx¦s®æA2¡A
¦ýa.xls¤¤Àx¦s®æB2¡GB10 ¦³µù¸Ñ¡A­Y¤£·Q±Nµù¸Ñ½Æ»s©ób.xlsªºÀx¦s®æ¡A¸Ó¦p¦ó©O¡H
a.xls¤¤«ö¶sµ{¦¡½X¦p¤U¡G
sub copy( )
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open "C:\Documents and Settings\328-2\b.xls"
Workbooks("a.xls").Sheets(1).Range("A2:B10 ").Copy Workbooks("b.xls").Sheets(1).Range("A2")
Workbooks("b.xls").Range("B2:B10 ").ClearComments
Workbooks("b.xls").Save
Workbooks("b.xls").Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
end sub

§Ú¦b«ä¦Ò¬O¤£¬O¤£¥i¥H©óa.xls¤¤²M°£b.xls¸Ìªºµù¸Ñ¡A¦³¨S¦³¨ä¥L¿ìªk©O¡H¡H

Hsieh

¦^´_ 6# caichen3
Workbooks("b.xls").Sheets(1).Range("A2:B10 ")=Workbooks("a.xls").Sheets(1).Range("A2:B10 ").Value

caichen3

¨ü¯q  ·PÁ¤j¤j­ÌªºÀ°§U