¦P®É°õ¦æ¨â­Óvba®É¦P¼Ë°µcopy¶K¤Wªº°Ê§@¦p¦óÁקK¶K¤Wªº²§±`

flask

½Ð°Ý§Ú¦P®É°õ¦æ¨â­Óvba®É,±q¤£¦Pºô­¶¶×¤J¸ê®Æ³B²z§¹,±N¸ê®Æ½Æ»s¨ì¦U¤u§@ªí,¦P¼Ë°µcopy¶K¤Wªº°Ê§@,
·í¨â­Óvba°õ¦æ¨ì¦P®É°µ¶K¤W®É·|¦³¤@­Ó·|¥X²{²§±`,½Ð°Ý­n¦p¦óÁקK¶K¤Wªº²§±`ªº²{¹³,ÁÂÁÂ..

flask

ÁÂÁÂGBKEE¤j¤j,¤µ¤Ñ¥u§ï¤@­Ó¨S§ïªº·|²§±`,¦ýª¬ªp¦n¦h¤F,¤U¬P´Á¦A¨Ó¸Õ¸Õ.ÁÂÁÂGBKEE¤j¤j

GBKEE

¦^´_ 3# flask
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Rng(1 To 2) As Range
   
3.     With Sheets("sheet1")
   
4.         .UsedRange.Columns.AutoFit
   
5.         Set Rng(1) = .Columns("B:F")
   
6.     End With
   
7.     With Workbooks.Open(Filename:="c:\7¤ë\" & stcode & "7¤ë.xls")
   
8.             Set Rng(2) = .Sheets("®w¦s").Cells(1, 255).End(xlToLeft).Offset(, 1)
   
9.             Rng(1).Copy Rng(2)
   
10.             .Close SaveChanges:=True
    
11.     End With
    
12.     Rng(1).ClearContents
    
13. End Sub

½Æ»s¥N½X

flask

ÁÂÁÂGBKEE¤j¤j,§Úªºµ{§Ç½X¬O³o¼Ë¨º­n¦p¦ó§ï©O?
   Sheets("sheet1").UsedRange.Columns.AutoFit
    Columns("B:F").Copy
     Workbooks.Open Filename:= _
     "c:\7¤ë\" & stcode & "7¤ë.xls"
     Sheets("®w¦s").Select
     ActiveWorkbook.Sheets("®w¦s").Cells(, Cells(2, 255).End(xlToLeft).SpecialCells(12).Column + 1).Select
     ActiveSheet.Paste
      Workbooks(stcode & "7¤ë.xls").Close SaveChanges:=True
     Columns("B:F").ClearContents

GBKEE

¦^´_ 1# flask
³o¼Ëªº¼Ò¦¡ ¸Õ¸Õ¬Ý    Sheet1.Range("D3:F3").Copy Sheet2.Range("C3")