如何合并一个工作簿中的多个工作表

发布网友发布时间：2022-08-04 11:41

共3个回答

热心网友时间：2023-10-15 03:23

横向的代码稍微改改就可以纵向合并了，自己独立写一个也是可以的，但是教会别人写代码我从来不敢，可以文件扔来帮你合并。

热心网友时间：2023-10-15 03:24

用以下宏代码解决：
Sub RightGather()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets(1).Select
Sheets.Add '新建一个汇总表
Sheets(1).Name = "RightGather"
Dim i, j, k, m As Integer
For k = 2 To Sheets.Count
j = Sheets("RightGather").Cells(1, Columns.Count).End(xlToLeft).Column + 2 '排列中间不要空一行，把最后一个2改成1
Sheets(k).Select
i = Sheets(k).[a65536].End(3).Row
m = Sheets(k).Cells(1, Columns.Count).End(xlToLeft).Column
Sheets(k).Range(Cells(1, 1), Cells(i, m)).Copy Sheets("RightGather").Cells(1, j) '如果有标题列，把前面一个1改成2
Next
Sheets(1).Select
Columns("A:B").Delete ' '排列中间不要空一行，括号里直接写一个A
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub追问运行错误啊，我想要横向排列

追答

热心网友时间：2023-10-15 03:24

易用宝插件来实现吧