Sub test()
Dim rg As Range
Dim sh As Worksheet
Dim irow%
Cells.Clear
For Each sh In Worksheets
With Sheets("汇总")
If sh.Name <> "汇总" Then
Set rg = sh.Range("a1").CurrentRegion
irow = .Range("a" & Rows.Count).End(xlUp).Row + 2
rg.Copy .Cells(irow, 1)
End If
End With
Next
End Sub
汇总到同一个表格
最新推荐文章于 2022-04-28 21:47:24 发布