怎样使用VBA多工作簿合并到本工作表？

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

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

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

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

Sub多工作簿合并到当前工作表()

 

 Dim ppath As String, dirname, active_book As String, sheet_count As Long,

 

  i As Integer, ans As Byte

 

  ans=Application.InputBox("请确认在工作簿的标题行数：", "标题行", 1, , , , , 1)

 

    '默认为1

 

Application.ScreenUpdating=False

 

'为三个变量赋值

 

ppath=ActiveWorkbook.Path

 

active_book=ActiveWorkbook.Name

 

dirname=Dir(ppath & "\*.xlsx")

 

'复制标题

 

If dirname <> active_book Then

 

      Workbooks.Open Filename:=ppath & "\" & dirname

 

                                      '打开待汇总的目标工作簿

 

        Workbooks(active_book).Activate      '激活汇总表

 

  Workbooks(dirname).Sheets(1).Rows("1:" & ans).Copy Rows("1:" & ans)

 

  Workbooks(dirname).Close False

 

End If

 

'复制所有工作簿数据

 

Do While dirname <> ""

 

    If dirname <> active_book Then

 

      Workbooks.Open Filename:=ppath & "\" & dirname

 

                                        '打开待汇总的目标工作簿

 

      sheet_count=Sheets.Count       '为变量赋值为工作簿中工作表数目

 

      Workbooks(active_book).Activate      '激活汇总表

 

      For i=1 To sheet_count

 

                          '复制新打开的工作簿的第一个工作表的已用区域到rng

 

        Workbooks(dirname).Sheets(i).UsedRange.Offset(ans, 0).Copy

 

            Range("a1048576").End(xlUp).Offset(1, 0)

 

      Next

 

      Workbooks(dirname).Close False

 

    End If

 

    dirname=Dir

 

Loop

 

Application.ScreenUpdating=True

 

End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序弹出提示框，提示输入各工作表标题行数