VBA多工作簿多条件汇总

fan800326

请老师帮助，谢谢！
问题都写在了多工作簿多条件汇总表里了。

lsc900707

这样的例子论坛里一抓一大把！

3190496160

Sub hz()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets("汇总")
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ws = sh.Cells(Rows.Count, 2).End(xlUp).Row
sh.Range("e3:t" & ws) = Empty
ar = sh.Range("b2:t" & ws)
For i = 2 To UBound(ar)
    If Trim(ar(i, 2)) <> "" And Trim(ar(i, 3)) <> "" Then
        s = Trim(ar(i, 2)) & "|" & Trim(ar(i, 3))
        d(s) = i
    End If
Next i
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
        With wb.Worksheets(1)
            rs = .Cells(Rows.Count, 2).End(xlUp).Row
            br = .Range("b2:t" & rs)
            For i = 2 To UBound(br)
                s_1 = Trim(br(i, 2)) & "|" & Trim(br(i, 3))
                m = d(s_1)
                If m <> "" Then
                    For j = 4 To UBound(br, 2)
                        ar(m, j) = br(i, j)
                    Next j
                End If
            Next i
        End With
        wb.Close False
    End If
f = Dir
Loop
sh.Range("b2:s" & ws) = ar
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

VBA写汇总.rar (73.97 KB, 下载次数: 18)

2020-3-3 11:09 上传

点击文件名下载附件

fan800326

3190496160 发表于 2020-3-3 11:09

老师，
你好！
先谢谢！
问题？
月行没日期，月以下的行就无法显示数据，也作为管控。

3190496160

fan800326 发表于 2020-3-3 12:39
老师，
你好！
先谢谢！

看不懂你的文字表达的意思