GBKEE

¦^´_ 26# cchaha_captain
¸Õ¸Õ¤U¦Cµ{¦¡
¦b¶}±Òªº©Ò¦³¬¡­¶Ã¯¤¤,±N°£¤F§@¥Î¤¤¬¡­¶Ã¯ (ActiveWorkbook) , ¤§¥~ªºSheets(1).UsedRange ,¦¬¶°¨ì§@¥Î¤¤¬¡­¶Ã¯¤¤ªºActiveSheet

1. Sub Ex()
   
2.     Dim Book As Workbook, Rng(1 To 2) As Range
   
3.     With ActiveWorkbook.ActiveSheet
   
4.         Set Rng(1) = .Range("A" & Rows.Count).End(xlUp)
   
5.         For Each Book In Workbooks
   
6.             If Book.Name <> .Parent.Name Then
   
7.                 Set Rng(2) = Book.Sheets(1).UsedRange
   
8.                 Rng(1).Resize(Rng(2).Rows.Count, Rng(2).Columns.Count) = Rng(2).Value
   
9.                 Set Rng(1) = .Range("A" & Rows.Count).End(xlUp).Offset(1)
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X