°a¤ªºµ

¦^´_ 1# mdr0465

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý¬O¤£¬O³o¼Ë ·PÁÂ

1. Public Sub ¸ó¤u§@ï½m²ß()
   
2.     Application.ScreenUpdating = False
   
3.    
   
4.     Arr = [A1].CurrentRegion
   
5.     Workbooks.Open ThisWorkbook.Path & "\Inventory-12-29-16-12blank.xlsx"
   
6.     Workbooks("Inventory-12-29-16-12blank.xlsx").Activate
   
7.    
   
8.     For X = 2 To UBound(Arr)
   
9.         Cells(X, 1) = Arr(X, 1)
   
10.         Cells(X, 2) = Arr(X, 3)
    
11.         Cells(X, 6) = Arr(X, 6)
    
12.         Cells(X, 10) = Arr(X, 10)
    
13.         Cells(X, 18) = Arr(X, 18)
    
14.         Cells(X, 19) = Arr(X, 19)
    
15.     Next X
    
16. 
    
17.     Workbooks("Inventory-12-29-16-12blank.xlsx").Close True
    
18. 
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X