《同一目录下多个工作簿合并到一个工作表中.docx》由会员分享，可在线阅读，更多相关《同一目录下多个工作簿合并到一个工作表中.docx（3页珍藏版）》请在三一办公上搜索。
1、同一目录下多个工作簿合并到一个工作表中同一目录下多个工作簿合并到一个工作表中 电信的话费清单，每个工作簿中只有一个工作表，且首行字段都相同。为了摆脱大量工作簿复制粘贴的麻烦，在咱们论坛里找到了两段VBA的代码，一段可以将多个工作簿合并成一个工作簿，另一段能将一个工作簿中的多个工作表合并成一个工作表。小弟不才，只能将两段代码合并到一起稍做修改，最终达到了目的。现有一个问题请教各位高手：怎样给最后生成的汇总表中的不同卡号间插入空行？该在模块中那个位置插入什么代码？ 答案： 关键就在于代码的倒数第五行： * Sub 合并汇总 Application.DisplayAlerts = False App
2、lication.ScreenUpdating = False FileToOpen_N = Application.GetOpenFilename(xls文件,*.xls, _ Title:=请选择要合并工作簿：, MultiSelect:=True) Newbz = 0 On Error Resume Next For Each FileToOpen In FileToOpen_N If FileToOpen False Then If Newbz = 0 Then Booknum = Application.SheetsInNewWorkbook Application.SheetsIn
3、NewWorkbook = 1 Workbooks.Add Application.SheetsInNewWorkbook = Booknum NewBookName = ActiveWorkbook.Name Sheets(1).Name = sheet_tmp Newbz = 1 End If Set OpenBook = Workbooks.Open(FileToOpen) For Each Xlsheet In OpenBook.Sheets Xlsheet.Copy Before:=Workbooks(NewBookName).Sheets(sheet_tmp) Next OpenB
4、ook.Close SaveChanges:=False End If Next Workbooks(NewBookName).Sheets(sheet_tmp).Delete Application.ScreenUpdating = True Application.DisplayAlerts = True Dim sht As Worksheet, lstRowZb As Integer, lstRow As Integer lstRowZb:总表的lastrow Worksheets(1).Select Worksheets(1).Range(a1:h1).Copy Destinatio
5、n:=Range(a1) 复制表头 For Each sht In Worksheets lstRowZb = Range(a65536).End(xlUp).Row 每次COPY前取得总表的最后一行 With sht If .Name 1 Then lstRow = .Range(a65536).End(xlUp).Row .Range(a2:h & lstRow).Copy Destination:=Cells(lstRowZb + 1, a) End If End With Next sht End Sub * 把行中的+1改为+4就空出了3行，如果需要空4行就是+5； 如果需要最后生成表中不同卡号上面都有首行的字段，把a2该为a1就行了。
