——用VBA 数组 实现两表按日期条件交叉汇总，帮帮忙噢！

阿蒙森

帮忙看看，用VBA数组实现两表按日期汇总数据，万分感谢！ 期待高手出现，在线等，谢谢！！！

3190496160

Sub hebing()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("汇总")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("c3:aj" & rs + 2) = Empty
    ar = .Range("a1:aj" & rs)
    For j = 3 To UBound(ar, 2) Step 2
        If Trim(ar(1, j)) <> "" Then
            d(ar(1, j)) = j
        End If
    Next j
    For i = 2 To UBound(ar) Step 1
        If Trim(ar(i, 1)) <> "" And Trim(ar(i, 2)) <> "" Then
            zf = Trim(ar(i, 1)) & "|" & Trim(ar(i, 2))
            d(zf) = i
        End If
    Next i
    For Each sh In Sheets(Array("实际", "计划"))
        m = m + 1
        br = sh.[a1].CurrentRegion
        For i = 2 To UBound(br)
            zf = Trim(br(i, 3)) & "|" & Trim(br(i, 4))
            xh = d(zf)
            lh = d(br(i, 1))
            If xh <> "" And lh <> "" Then
                If m = 1 Then
                    llh = lh
                Else
                    llh = lh + 1
                End If
                ar(xh, llh) = ar(xh, llh) + br(i, 5)
            End If
        Next i
    Next sh
    .Range("a1:aj" & rs) = ar
End With
MsgBox "ok!"
End Sub

3190496160

说明太模糊，代码仅供参考
——进度汇总—求助——.rar (15.03 KB, 下载次数: 10)

2022-3-25 08:23 上传

点击文件名下载附件

阿蒙森

3190496160 发表于 2022-3-25 08:23
说明太模糊，代码仅供参考

老师，不好意思，我没说清楚，我上个示意图吧

3190496160

阿蒙森 发表于 2022-3-25 11:09
老师，不好意思，我没说清楚，我上个示意图吧

目前的代码就是这个思路的呀，具体现在还存在什么问题，有针对性的说明，没有多少闲心一个一个的去核对数据的