Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 494|回复: 5

[已解决] 求助:有偿求助 能用的会红包感谢地 谢谢大家

[复制链接]
发表于 2017-12-1 15:13 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
本帖最后由 一生丶 于 2017-12-2 09:08 编辑

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

板材料单.zip

14.87 KB, 下载次数: 3

发表于 2017-12-1 17:26 | 显示全部楼层
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, 下载次数: 16)
回复 支持 1 反对 0

使用道具 举报

发表于 2017-12-1 16:50 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-1 16:58 | 显示全部楼层

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

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-2 09:03 | 显示全部楼层
本帖最后由 一生丶 于 2017-12-2 09:17 编辑
爱疯 发表于 2017-12-1 17:26
Sub test()
    Dim A, i, d, x
    Set d = CreateObject("scripting.dictionary")

谢谢大哥 ,留个联系方式 !!聊表心意啊 设置半天没法弄最佳 十分感谢   
回复 支持 反对

使用道具 举报

发表于 2017-12-2 12:03 | 显示全部楼层
一生丶 发表于 2017-12-2 09:03
谢谢大哥 ,留个联系方式 !!聊表心意啊 设置半天没法弄最佳 十分感谢

不用谢,论坛近期在维护,有的功能也行仍需调测。
回复 支持 反对

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2018-10-18 13:54 , Processed in 0.093600 second(s), 20 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表