如何汇总某个文件夹下多个工作簿里指定工作表里指定行的数据

wjh426

如何将“基础数据”文件夹下所有工作簿里含“赵五”的工作表里的第5行至第12行数据汇总到“工作表汇总”文件夹下的“数据汇总”工作簿里，汇总形式如“数据汇总”工作簿里的数据。说明：一是“基础数据”文件夹下的工作簿很多；二是需要汇总的指定工作表的格式均一致。谢谢！

abc123281

工作表汇总1233.rar (41.5 KB, 下载次数: 111)

2019-1-18 19:46 上传

点击文件名下载附件

lsc900707

Sub gj23w98()
    Dim brr(1 To 1000, 1 To 5)
    Application.ScreenUpdating = False
    p = ThisWorkbook.Path & "\基础数据\"
    f = Dir(p & "*.xls*")
    Do While Len(f)
        If f <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(p & f)
            With wb.Sheets("赵五")
                arr = .UsedRange
                For i = 5 To UBound(arr) - 1
                    m = m + 1
                    For j = 1 To UBound(arr, 2)
                        brr(m, j) = arr(i, j)
                    Next
                Next
            End With
            wb.Close False
        End If
        f = Dir
    Loop
    If m Then
        Cells.Clear
        [a1].Resize(m, 5) = brr
        [a1].Resize(m, 5).Borders.LineStyle = 1
    End If
    Application.ScreenUpdating = True
End Sub

lsc900707

代码需要审核，先测试参考附件：

wjh426

真心谢谢大家。