将多个工作簿中的的第一张表（每张表第一列只有前两行有数值）汇总到同一张表

仪夏

有几百多张工作簿，要把每张工作簿的第一张表汇总到一张表中。源每个工作表基本格式一致，但是每个表前几列只有前两行有数值，中间可能有空行。最后有一条汇总行。

不知道为什么

嗯，这类题型论坛贴子很多，自己搜索应该可以解决

zhang6029

Sub hzwb()
Dim bt As Range, r As Long, c As Long
r = 2
c = 15
Dim wt As Worksheet
Set wt = ThisWorkbook.Worksheets(1)
wt.Rows(r + 1 & ":1048576").ClearContents
Application.ScreenUpdating = False
Dim FileName As String, sht As Worksheet, wb As Workbook
Dim Erow As Long, fn As String, arr As Variant
FileName = Dir(ThisWorkbook.path & "\*.xlsx")

Do While FileName <> ""

   If FileName <> ThisWorkbook.Name Then
   Erow = wt.UsedRange.Rows.Count + 1
   fn = ThisWorkbook.path & "\" & FileName
   Set wb = GetObject(fn)
   Set sht = wb.Worksheets(1)
   arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(1048576, "B").End(xlUp).Offset(c, 8))
   wt.Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
   wb.Close False
   End If
   
FileName = Dir

Loop
Application.ScreenUpdating = True

End Sub

真正的幸福哥

zhang6029 发表于 2018-8-16 14:00
Sub hzwb()
Dim bt As Range, r As Long, c As Long
r = 2

真大神，直接复制你的代码运行了一下，还真能提取出来