Hsieh

¦^´_ 7# cmo140497

1. Sub ex()
   
2. With Sheets("summary")
   
3. s = .Cells.SpecialCells(xlCellTypeVisible).Columns.Count - 2
   
4. .Cells = ""
   
5. a = 2: b = 4 '¼g¤Jªº²Ä¤@­Ó¦ì¸m
   
6.    For Each sh In Sheets
   
7.        If sh.Name <> .Name And sh.Name <> "cals" Then '±Æ°£¤£¼g¤Jªº¤u§@ªí
   
8.        ar = sh.Range("A1").CurrentRegion.Offset(, 1).Value '©Ò¦³¸ê®Æ½d³ò
   
9.            ar(1, 2) = ar(1, 1): ar(1, 1) = sh.[A1].Value '§ó§ï°}¦C¤º®e
   
10.            r = Int(n / Int(s / (UBound(ar, 2) - 1))) * (UBound(ar, 1) - 1) + b
    
11.            k = (n Mod Int(s / (UBound(ar, 2) - 1))) * (UBound(ar, 2) - 1) + a
    
12.            n = n + 1 '­pºâ¤u§@ªí¼Æ¶q
    
13.            .Cells(r, k).Resize((UBound(ar, 1) - 1), (UBound(ar, 2) - 1)) = ar
    
14.        End If
    
15.    Next
    
16. End With
    
17. End Sub

½Æ»s¥N½X