GBKEE

²¤Æ¤@¤U

1. Sub Ex()
   
2.     Dim Sh As Worksheet, i%, iRowEnd%, Ar()
   
3.     With Sheets("¦X¨Ö")
   
4.         .Move Sheets(1)                      '¤u§@ªí²¾¨ì³Ì«e­±
   
5.         .UsedRange.Offset(1).ClearContents   '¨Ï¥Î½d³ò²Ä2¦C¶}©l²M°£
   
6.         For i = 2 To Sheets.Count            '¤u§@ªí¯Á¤Þ2¶}©lªº°j°é
   
7.             iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
   
8.             Ar = Sheets(i).Range("A2:B" & iRowEnd).Value                                            '¨ú±o¸ê®Æ
   
9.             .Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Ar), 2) = Ar                 '¸m¤J¸ê®Æ
   
10.             .Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Ar), 1) = Sheets(i).Name     '¸m¤J¤u§@ªí¦WºÙ
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# Happkkevin
iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Rowªº·N¸q¬°¦ó?
A: iRowEnd =Sheets(i).A65536©¹¤W¨ì¦³¸ê®ÆÀx¦s®æªº¦C¸¹
i  ->¤u§@ªíªº¯Á¤Þ­È
Rows.Count  ¦Cªº­p¼Æ(Á`¼Æ)    2003¬° 65536   
End ÄÝ©Ê      ¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí¥]§t¨Ó·½½d³ò¤§°Ï°ìµ²§À³BªºÀx¦s®æ¡Cµ¥©ó«ö END+¦V¤WÁä(XlUp)¡BEND+¦V¤UÁä(XlDown)¡BEND+¦V¥ªÁä    (XlToLeft)©Î END+¦V¥kÁä(XlToRight)¡C°ßŪ Range ª«¥ó¡C
Row ->¦C¸¹

Ãö©ó  Ar = Sheets(i).Range("A2:B" & iRowEnd).Value ¤¤ªº Range ("A2:B" & iRowEnd)ªº·N«ä¬O?
A: ¦p  iRowEnd=100     Range ("A2:B" & iRowEnd) -> Range ("A2:B100")

GBKEE

¦^´_ 8# Happkkevin
UBound ¨ç¼Æ   ¶Ç¦^ Long­È¡Aªí¥Ü«ü©w°}¦C¬Yºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ¡C
Dim A(1 To 100, 0 To 3, -3 To 4)   
³¯­z¦¡ ¶Ç¦^­È
UBound(A, 1) -> UBound(A) -> 100
UBound(A, 2)  ->3
UBound(A, 3)  ->4