随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA多表数据合并？工具/原料more手机方法/步骤1/5分步阅读

首先在开发工具中打开VBA编辑器

2/5

在单元格区域当中输入一些内容作为例子

3/5

在VBA编辑器中插入模块

4/5

在模块当中输入如下代码，然后运行

Sub多表合并到当前工作表() Dim i As Integer, ans As Byte ans=Application.InputBox(请输入各分表标题行数, 确认标题, 1, , , , , 1) Application.ScreenUpdating=False 关闭屏幕更新 Sheets(2).Rows(1: ans).Copy Rows(1: ans) 复制标题 =汇总表 修改标题为汇总表 For i=2 To ThisWorkbook.Worksheets.Count 开始复制各分表标题以外的数据 Application.Intersect(Sheets(i).UsedRange.Offset(ans, 0), Sheets(i).UsedRange).Copy Range(a1048576).End(xlUp).Offset(1, 0) Next 复制下一个 Application.ScreenUpdating=True 恢复屏幕更新End Sub

5/5用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出“确认标题”对话框，提示输入各工作表标题行数，默认值为1，本例中输入2，如图注意事项

智能手机助理给我们的生活带来了极大的便利！