Public Sub HBsh()
Dim Sh As Worksheet, i As Long
i = 1
For Each Sh In Worksheets
If Sh.Name <> "总的" Then
Sheets("总的").Cells(1, i).Resize(Sh.Range("A1").CurrentRegion.Rows.Count, Sh.Range("A1").CurrentRegion.Columns.Count).Value = Sh.Range("A1").CurrentRegion.Value
i = i + Sh.Range("A1").CurrentRegion.Columns.Count
End If
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024