一、按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
二、点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。
Sub CombineSheet1()
Dim i, k, j, n As Integer
n = 1
For i = 6 To ThisWorkbook.Sheets.Count
For k = 1 To 60
For j = 1 To 8
ThisWorkbook.Sheets(4).Cells(n, j).Value = ThisWorkbook.Sheets(i).Cells(k, j).Value
#纵向罗列 在工作表4纵向复制粘贴从I表开始的Cell（行,列）
Next j
n = n + 1
Next k
Next i
End Sub
#以下是横向罗列，举一反三
Sub CombineSheet2()
Dim i, k, j, n As Integer
n = 1
For i = 5 To ThisWorkbook.Sheets.Count
For k = 1 To 8
For j = 1 To 60
ThisWorkbook.Sheets(4).Cells(j, n).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
Next j
n = n + 1
Next k
Next i
End Sub
三、按住 ALT + F8，快捷唤出模块。
-> 加入科技玩家交流群组：点击加入 注意:
1.文中二维码和链接可能带有邀请性质，请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头，拉app注册等信息，发现必小黑屋。
4.同一种信息仅发一次，多发会被删除。
5.文章中源码或APP等，无法保证其绝对安全，需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
1.文中二维码和链接可能带有邀请性质，请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头，拉app注册等信息，发现必小黑屋。
4.同一种信息仅发一次，多发会被删除。
5.文章中源码或APP等，无法保证其绝对安全，需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
本文由 @LAzySheep 发布。如若转载，请注明出处： 科技玩家 » Excel使用宏VBA汇总罗列在同一工作簿中不同工作表同一区域的数据
真棒，感谢分享！