excel合并多个工作簿中的工作表.docVIP

excel合并多个工作簿中的工作表 　　excel 合并多个工作簿中的工作表 　　在同一文件夹中有多个工作簿, 其中有一个用于汇总的工作簿, 要求将除该汇总工作簿外的 其它工作簿中的指定工作表的数据汇总到该汇总工作簿中。 (这个最好用 ) 代码如下: Sub UnionWorksheets() 　　Application.ScreenUpdating = False 　　Dim lj As String 　　Dim dirname As String 　　Dim nm As String 　　lj = ActiveWorkbook.Path 　　nm = ActiveWorkbook.Name 　　dirname = Dir(lj 　　Cells.Clear 　　Do While dirname 　　If dirname nm Then 　　Workbooks.Open Filename:=lj 　　Workbooks(nm).Activate 　　 复制新打开工作簿的第一个工作表的已用区域到当前工作表 　　Workbooks(dirname).Sheets(1).UsedRange.Copy _ 　　Range( 　　sheets(1) 中的 1为工作表顺序号 　　Workbooks(dirname).Close False 　　End If 　　dirname = Dir 　　Loop 　　End Sub 　　可以将指定目录下的 excel 工作簿中的指定表!汇总到一起! 　　例如!将 book1.xlsx 中的 sheet1。 　　book2.xlsx 中的 sheet1。 　　book3.xlsx 中的 sheet1。 　　book4.xlsx 中的 sheet1。 　　~~~~~~~~~~ 　　合并到 book 汇总 .xlsx 中的 sheet1中 　　如果你的建议是复制 ~~粘贴 ~就算了!这个我知道如何使用! 　　如果提供宏的朋友可以加入详细说明,以便我学习,我将酌情加分! 谢谢! 　　最佳答案 　　Sub Macro1() 　　Dim lj$, dirname$, nm$, wb As Workbook, sh As Worksheet, a, b Set wb = ThisWorkbook 　　a = Array(0, 2, 1) 　　b = Array(0, -1, 0) 　　lj = ThisWorkbook.Path 　　nm = ThisWorkbook.Name 　　dirname = Dir(lj 　　Application.ScreenUpdating = False 　　For Each sh In Sheets 　　sh.UsedRange.Offset(3, 0).Clear 　　Next 　　Do While dirname 　　If dirname nm Then 　　With GetObject(lj 　　For i = 1 To 2 　　If IsSheetEmpty = IsEmpty(.Sheets(i).UsedRange) Then _ 　　.Sheets(i).UsedRange.Offset(3, 0).Copy wb.Sheets(.Sheets(i).Name).Cells(65536, a(i)).End(xlUp).Offset(1, b(i)) Next 　　.Close False 　　End With 　　End If 　　dirname = Dir 　　Loop 　　Dim UserSheet As Worksheet 　　Set UserSheet = ActiveSheet 　　Dim TopRow As Long 　　Dim LeftCol As Integer 　　TopRow = ActiveWindow.ScrollRow 　　LeftCol = ActiveWindow.ScrollColumn 　　Dim LastRow As Long, R As Long 　　LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1 　　Application.ScreenUpdating = False 　　For R = LastRow To 1 Step -1 　　If WorksheetFunction.CountA(Rows(R)) = 0 Then Rows(R).Delete 　　End If 　　Next R 　　UserSheet.Activate 　　ActiveWindow.ScrollRow = TopRow