stillfish00

¦^´_ 1# morris0914
¸Õ¸Õ¬Ý

Sub Compare()
    Dim Sh As Worksheet, i%, iRowEnd%, iColEnd%, Ar()
    With ActiveWorkbook
        .Sheets.Add(, .Sheets(.Sheets.Count)).Name = "¦X¨Ö"
    End With
    With Sheets("¦X¨Ö")
        .Move Sheets(2)
        .UsedRange.Offset(1).ClearContents
        For i = 2 To Sheets.Count
            iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            iColEnd = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column
            Ar = Sheets(i).Range("A2:" & .Cells(iRowEnd, iColEnd).Address).Value
            .Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Ar), UBound(Ar, 2)) = Ar
        Next
    End With
End Sub