数据归纳

CYZ凡星点点

以（单价）B列相同姓名行，复制"C:E"单元格，归纳
输入到（资料）第2行有相同姓名的列下面空单元格
，刚刚在学习VBA，用yynrzwh 老师，也不知道是哪里错了？
各位老师，帮忙看看谢谢

liulang0808

Sub 按钮3_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    Sheets("单价").Select
    arr = [a1].CurrentRegion
    For j = 2 To UBound(arr)
        If d.exists(arr(j, 2)) Then
            Set d(arr(j, 2)) = Union(d(arr(j, 2)), Cells(j, 3).Resize(1, 3))
        Else
            Set d(arr(j, 2)) = Cells(j, 3).Resize(1, 3)
        End If
    Next j
    Sheets("资料").Select
    For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3
        x = Cells(2, j).Value
        If d.exists(x) Then
            r = Cells(Rows.Count, j).End(3).Row + 1
            d(x).Copy Cells(r, j)
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

Sub 按钮3_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    Sheets("单价").Select
    arr = [a1].CurrentRegion
    For j = 2 To UBound(arr)
        If d.exists(arr(j, 2)) Then
            Set d(arr(j, 2)) = Union(d(arr(j, 2)), Cells(j, 3).Resize(1, 3))
        Else
            Set d(arr(j, 2)) = Cells(j, 3).Resize(1, 3)
        End If
    Next j
    Sheets("资料").Select
    For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3
        x = Cells(2, j).Value
        If d.exists(x) Then
            d(x).Copy Cells(3, j)
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

工作表1.zip (25.2 KB, 下载次数: 35)

2024-2-4 07:49 上传

点击文件名下载附件

CYZ凡星点点

liulang0808 发表于 2024-2-4 07:49

谢谢liulang0808帮忙，能不能分类完，清除单价表后，在新增数据和姓名，执行VBA后，资料里面数据从空单元格增加，不覆盖。如果单价表C列日期和E列价格，和资料里面数据相同则不复制。

yynrzwh

工作表.rar (46.31 KB, 下载次数: 30)

2024-2-4 10:48 上传

点击文件名下载附件

liulang0808

CYZ凡星点点 发表于 2024-2-4 09:32
谢谢liulang0808帮忙，能不能分类完，清除单价表后，在新增数据和姓名，执行VBA后，资料里面数据从空单元 ...

上传附件模拟一下具体需求吧

CYZ凡星点点

你看看这样清楚吗，谢谢

CYZ凡星点点

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

只有相同日期，E列价格不一样，没有复制

kittli

交作业！！

CYZ凡星点点

kittli 发表于 2024-2-5 12:19
交作业！！

抱歉可能我说的不清楚，表1-江素琼24年01月30日分别记录2次【E7】价格3680-7C8【E8】价格500，
但是VBA只汇总1次，【E8】没有汇总