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

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"