register313

¦^´_ 1# sax868

¤£¤F¸Ñ 2) ¤§»¡©ú

1. Sub xx()
   
2. Sheets("Updated Data").Select
   
3. Cells = ""
   
4. [A1] = Sheets("AB1").[B1]:  [B1] = Sheets("AB1").[B2]:  [C1] = Sheets("AB1").[D1]
   
5. [D1:BE1] = Sheets("AB1").[A11:BB11].Value
   
6. For Each Sh In Sheets
   
7.   If Sh.Name = "Currency" Or Sh.Name = "DATA" Or Sh.Name = "Updated Data" Then Exit For
   
8.   R = 0: C = 0
   
9.   R = Sh.[A11].End(xlDown).Row: C = C + (R - 12 + 1)
   
10.   Ar = Sh.Range("A12:BB" & R).Value
    
11.   [D65536].End(xlUp).Offset(1, 0).Resize(C, 54) = Ar
    
12.   Br = Array(Sh.[C1], Sh.[C2], Sh.[E1])
    
13.   [A65536].End(xlUp).Offset(1, 0).Resize(C, 3) = Br
    
14. Next
    
15. End Sub

½Æ»s¥N½X