- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 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 |
|