订阅excel中，怎样快速批量合并多个工作表？
来源：网络收集 点击： 时间：2024-02-21分别在sheet1、sheet2工作表输入不同数据，如下图所示。
2/8点击菜单栏里的文件点击后在里面选择选项，操作见下图。
3/8在Excel选项窗口点击自定义功能区，在右侧勾选开发工具，最后点击确定，操作见下图。
4/8菜单栏里显示开发工具后，点击开发工具下的Visual Basic,操作见下图。
5/8打开vba窗口后右键Microsoft Excel对象在列表中点击插入下的模块，操作见下图。
6/8在工作薄中输入
Option Explicit
Sub combine()
Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer
flag = False
For i = 1 To Sheets.Count
If Sheets(i).Name = comb Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = comb
Sheets(comb).Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If Sheets(i).Name comb Then
hrow = Sheets(comb).UsedRange.Row
hrowc = Sheets(comb).UsedRange.Rows.Count
If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets(comb).Cells(hrow, 1).End(xlUp)
Else
Sheets(i).UsedRange.Copy Sheets(comb).Cells(hrow + hrowc, 1)
End If
End If
Next i
End Sub
如下图所示。
7/8输入后点击菜单栏里运行下的”运行子过程/用户窗体“或直接按F5快捷键运行，操作见下图。
8/8合并后的效果见下图。
总结1/11、分别在sheet1、sheet2工作表输入不同数据
2、点击菜单栏里的文件点击后在里面选择选项
3、在Excel选项窗口点击自定义功能区，在右侧勾选开发工具，最后点击确定
4、菜单栏里显示开发工具后，点击开发工具下的Visual Basic,
5、打开vba窗口后右键Microsoft Excel对象在列表中点击插入下的模块
6、在工作薄中输入整合工作表代码
7、输入后点击菜单栏里运行下的”运行子过程/用户窗体“或直接按F5快捷键运行
注意事项tips:同时按Alt+F11快捷键也可打开vba
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_92448.html
