EXCEL 如何用VBA语言将一个EXCEL文件中不同sheet中的列数据 按列顺序 导入到一个sheet中去?

Question

按照Excel中sheet已有的顺序，新建一个sheet来按照列 存放所有数据

Answer 1

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

追问

多谢了

你好， 如果我汇总的时候 不需要第一列

应该怎么修改