数据归纳

CYZ凡星点点

yynrzwh 发表于 2024-2-6 16:00
在VBE中选择【工具】→【引用】选项，
勾选：Microsoft Scripting Runtime

会显示运行错误：424
要求对象

CYZ凡星点点

liulang0808 发表于 2024-2-6 16:18
楼主的空单元格，具体指什么，是哪部分是空的？

就是资料里面，匹配姓名下面的空单元格开始写入

CYZ凡星点点

liulang0808 发表于 2024-2-6 16:18
楼主的空单元格，具体指什么，是哪部分是空的？

就是资料里面，匹配姓名下面的空单元格开始写入，旧数据不覆盖

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

工作表1.zip (34.54 KB, 下载次数: 17)

2024-2-6 21:21 上传

点击文件名下载附件

CYZ凡星点点

liulang0808 发表于 2024-2-6 21:22

非常感谢老师

CYZ凡星点点

liulang0808 发表于 2024-2-6 21:22

老师如果是跨工作簿，（资料）是在 F:\数据\客户.xlsm 里面的资料工作表（1），需要修改里面，麻烦老师了

liulang0808

CYZ凡星点点 发表于 2024-2-7 00:27
老师如果是跨工作簿，（资料）是在 F:\数据\客户.xlsm 里面的资料工作表（1），需要修改里面，麻烦老师了

打开文件读取数据，论坛案例也很多，针对性处理即可。
如果还有问题，上传模拟附件，到底从哪个文件提取数据，放到哪个文件的什么位置

CYZ凡星点点

liulang0808 发表于 2024-2-7 07:19
打开文件读取数据，论坛案例也很多，针对性处理即可。
如果还有问题，上传模拟附件，到底从哪个文件提取 ...

主要是我不会英文，想把（单价）放和资料分开在不同的位置工作簿，
资料放在D:\建材\客户.xlsm(Sheet1)l里，
代码不知道怎么改

CYZ凡星点点

liulang0808 发表于 2024-2-7 07:19
打开文件读取数据，论坛案例也很多，针对性处理即可。
如果还有问题，上传模拟附件，到底从哪个文件提取 ...

老师你看看像这样可以吗