c_c_lai

¦^´_ 1# §Ú¬OÞ±

1. Sub Test()
   
2.     With Sheets("Sheet1")
   
3.         ' .Range("A2:E2").Copy Sheets("Sheet2").[F2]
   
4.         .Range("B1:B5").Copy Sheets("Sheet2").[G2]
   
5.     End With
   
6. End Sub
   
7. 
   
8. Sub Test2()
   
9.     With Sheets("Sheet1")
   
10.         ' Sheets("Sheet2").[F5].Resize(, 5) = .Range("A5:E5").Value
    
11.         ' Sheets("Sheet2").[F5].Resize(, 5) = .[A5:E5].Value
    
12.         Sheets("Sheet2").[F5].Resize(5, 1) = .[B1:B5].Value
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

Test() ·|³s¦P­I´º¤@¨Ö½Æ»s¹L¨Ó.