遍历子文件夹里的工作簿中的工作表，汇总符合条件的数据

329577245

说明：某水果连营店的A店和B店，2022年水果销售情况分别统计在两个工作簿（两个工作簿位于子文件夹中，名称不同）中的两个工作表（名称接近却不同）中，工作表格式相同，水果种类不完全相同排序不同。
目标：通过VBA代码，将两个工作簿中“A店水果销售表”和“B店水果销售表”中的苹果、香蕉、火龙果等水果的第一季度销售额依照本表（汇总表）顺序进行求和，写入对应单元格里，类似公式中的条件求和。如表所示，A店和B店，苹果第一季度的销售额是10950元。

3190496160

Sub 统计()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim i As Long, r As Long, rs As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("汇总表")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 4 Then MsgBox "请先录入水果名称！": End
    .Range("b4:e" & r) = Empty
    ar = .Range("a3:e" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            d(Trim(ar(i, 1))) = i
        End If
    Next i
    f = Dir(ThisWorkbook.Path & "\数据文件\*.xls*")
    Do While f <> ""
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\数据文件\" & f, 0)
        With wb.Worksheets(1)
            rs = .Cells(Rows.Count, 1).End(xlUp).Row
            br = .Range("a3:e" & rs)
        End With
        wb.Close False
        For i = 2 To UBound(br)
            If Trim(br(i, 1)) <> "" Then
                xh = d(Trim(br(i, 1)))
                If xh <> "" Then
                    For j = 2 To UBound(br, 2)
                        ar(xh, j) = ar(xh, j) + br(i, j)
                    Next j
                End If
            End If
        Next i
        .Range("a3:e" & r) = ar
    f = Dir
    Loop
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

数据汇总.rar (36.29 KB, 下载次数: 15)

2023-4-24 09:08 上传

点击文件名下载附件