求助：有偿求助 能用的会红包感谢地 谢谢大家

一生丶

将一样的长宽厚 数据合并到一起 后面的数量有变化 合并的数据弄到工作表2

爱疯

F8=C8&","&D8&","&E8

一生丶

爱疯 发表于 2017-12-1 16:50
F8=C8&","&D8&","&E8

十分感谢 ，可是想要一个一键宏 生成的那种 能帮一下吗 谢谢啊  留个联系方式 好感谢一下啊

爱疯

Sub test()
    Dim A, i, d, x
    Set d = CreateObject("scripting.dictionary")
    A = Sheets(1).UsedRange

    For i = 7 To UBound(A)
        x = A(i, 3) & Chr(32) & A(i, 4) & Chr(32) & A(i, 5)
        d(x) = d(x) + A(i, 6)
    Next i

    Sheets(2).Select
    Range("a1").CurrentRegion = ""
    [a1].Resize(d.Count) = Application.Transpose(d.keys)
    Columns("A:A").TextToColumns , Space:=True
    [d1].Resize(d.Count) = Application.Transpose(d.items)
End Sub
板材料单2.rar (24.6 KB, 下载次数: 18)

2017-12-1 17:26 上传

点击文件名下载附件

一生丶

爱疯 发表于 2017-12-1 17:26
Sub test()
    Dim A, i, d, x
    Set d = CreateObject("scripting.dictionary")

谢谢大哥 ，留个联系方式 ！！聊表心意啊 设置半天没法弄最佳 十分感谢   

爱疯

一生丶 发表于 2017-12-2 09:03
谢谢大哥 ，留个联系方式 ！！聊表心意啊 设置半天没法弄最佳 十分感谢

不用谢，论坛近期在维护，有的功能也行仍需调测。