怎样使用VBA多表数据合并？

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

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

3、在VBA编辑器中插入模块

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

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) '复制标题

 

  [a1]="汇总表"                           '修改标题为汇总表

 

  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、 用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出“确认标题”对话框，提示输入各工作表标题行数，默认值为1，本例中输入2，如图