数据归纳

CYZ凡星点点

CYZ凡星点点 发表于 2024-2-5 13:26
抱歉可能我说的不清楚，表1-江素琼24年01月30日分别记录2次【E7】价格3680-7C8【E8】价格500，
但是VBA ...

就是任何姓名一天可能记录多次，但是VBA只汇总一次

CYZ凡星点点

用yynrzwh老师的，取消If d(s).Exists(ss) Then d(s).Remove ss这一行就行

CYZ凡星点点

感谢各位老师帮忙
我用yynrzwh老师的代码，取消If d(s).Exists(ss) Then d(s).Remove ss这一行代码就可以
Sub 汇总()

Set d = New Dictionary
arr = Sheets("单价").Range("a1").CurrentRegion
    For i = 2 To UBound(arr)
        s = arr(i, 2)
        If Not d.Exists(s) Then
            Set d(s) = New Dictionary
        End If
        rq = Format(arr(i, 3), "yyyy年mm月dd日")
        ss = rq & "|" & arr(i, 4)
        d(s)(ss) = d(s)(ss) + arr(i, 5)
    Next

With Sheets("资料")
    lc = .Cells(1, Columns.Count).End(xlToLeft).Column
    brr = .Range("a1").Resize(9999, lc)
        For j = 1 To lc Step 3
            lr = .Cells(Rows.Count, j).End(3).Row
            s = brr(2, j)
            If lr = 2 Then
                Call sj(d, s, brr, j, lr)
            Else
                For i = 3 To lr
                    rq = Format(brr(i, j), "yyyy年mm月dd日")
                    brr(i, j) = rq
                    ss = rq & "|" & brr(i, j + 1)
                Next
                Call sj(d, s, brr, j, lr)
            End If
        Next
    .Range("a1").Resize(9999, lc) = brr
End With
Set d = Nothing
End Sub
Sub sj(d, s, ByRef brr, j, lr)
    For Each k In d(s).Keys
        ar = Split(k, "|")
        lr = lr + 1
        brr(lr, j) = ar(0): brr(lr, j + 1) = ar(1)
        brr(lr, j + 2) = d(brr(2, j))(k)
    Next
End Sub

saghj

CYZ凡星点点

saghj 发表于 2024-2-5 19:01

资料里面的旧数据要保留的，不·清除以前资料里面的数据，还有资料放在别的工作簿可以吗

CYZ凡星点点

saghj 发表于 2024-2-5 19:01

资料里面的旧数据要求不要覆盖的，谢谢

CYZ凡星点点

yynrzwh 发表于 2024-2-4 10:48

老师帮忙看看，那里错了，就换成xlsm工作簿

CYZ凡星点点

liulang0808 发表于 2024-2-4 07:48
Sub 按钮3_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating  ...

请问liulang0808老师，能保留资料里面数据，只在空单元格粘贴

yynrzwh

CYZ凡星点点 发表于 2024-2-6 11:08
老师帮忙看看，那里错了，就换成xlsm工作簿

在VBE中选择【工具】→【引用】选项，
勾选：Microsoft Scripting Runtime

liulang0808

CYZ凡星点点 发表于 2024-2-6 14:59
请问liulang0808老师，能保留资料里面数据，只在空单元格粘贴

楼主的空单元格，具体指什么，是哪部分是空的？