|
Sub 按钮1_Click()
Dim i, r1, r2
Application.ScreenUpdating = False
Sheets(1).Select
Range("a:j").Clear
For i = 2 To Sheets.Count
r1 = Cells(Rows.Count, 2).End(xlUp).Row + 1
r2 = Sheets(i).Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets(i).Range("a1:j" & r2).Offset(IIf(i = 2, 0, 1), 0).Copy Cells(IIf(i = 2, 1, r1), 1)
Next i
r1 = Cells(Rows.Count, 2).End(xlUp).Row + 1
Range(Cells(r1, 1), Cells(65536, "j")).Clear
With Range("a1").CurrentRegion
.EntireColumn.AutoFit
.ClearFormats
End With
End Sub
2019换货记录b.rar
(32.9 KB, 下载次数: 73)
|
|