随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA多表数据合并？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub多表合并到当前工作表()DimiAs诔罨租磊Integer,ansAsByteans=Applicat足毂忍珩ion.InputBox("请输入各分表标题行数","确认标题",1,,,,,1)Application.ScreenUpdating=False'关闭屏幕更新Sheets(2).Rows("1:"&ans).CopyRows("1:"&ans)'复制标题[a1]="汇总表"'修改标题为汇总表Fori=2ToThisWorkbook.Worksheets.Count'开始复制各分表标题以外的数据Application.Intersect(Sheets(i).UsedRange.Offset(ans,0),Sheets(i).UsedRange).CopyRange("a1048576").End(xlUp).Offset(1,0)Next'复制下一个Application.ScreenUpdating=True'恢复屏幕更新EndSub
5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出“确认标题”对话丸泸尺鸢框，提示输入各工作表标题行数，默认值为1，本例中输入2，如图
