GBKEE

¦^´_ 1# sax868
¨C¤@µ{§Ç¬O¨Ì­Ó®×ªº»Ý¨D¨Ó¼¶¼gªº.

1. Sub Ex()
   
2.     Dim R%, S%, Sh As Worksheet
   
3.     With Sheets("Á`ªí")
   
4.         .UsedRange.Offset(1).Clear
   
5.         R = 1
   
6.         For Each Sh In Sheets
   
7.             If Sh.Name <> "Á`ªí" Then
   
8.                     Sh.[a7].CurrentRegion.Copy .Cells(R, "C")
   
9.                     S = .Cells(Rows.Count, "C").End(xlUp).Row
   
10.                     .Cells(R + 1, "A").Resize(S - R, 2) = Application.WorksheetFunction.Transpose(Sh.[c2:c3].Value)
    
11.                     R = S + 1
    
12.             End If
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X