匹配相同的给予赋值 能用字典来完成吗？敬请老师们赐教。谢谢！

wtb8150

各位老师好！
            表2的A:B列与表1的A:B列匹配，如果相同者，根据表2的G1动态值，插入表1的C:E列对应的项目类值。
    字典对我来说还很迷糊，想学学字典，敬请老师们用字典方法赐教。本人先叩谢啦！！

爱疯

Sub test()
    Dim A, d, i, j, k
    Set d = CreateObject("scripting.dictionary")

    '1）写入字典
    Sheets(1).Select
    i = Range("a65536").End(xlUp).Row
    A = Range("a1:e" & i)
    For i = 3 To UBound(A)
        For j = 3 To UBound(A, 2)
            k = A(i, 1) & "," & A(i, 2) & "," & A(2, j)
            d(k) = A(i, j)
        Next j
    Next i

    '2）读取字典
    Sheets(2).Select
    i = Range("a65536").End(xlUp).Row
    A = Range("a1:c" & i)
    For i = 4 To UBound(A)
        k = A(i, 1) & "," & A(i, 2) & "," & A(2, 3)
        A(i, 3) = d(k)
    Next i
    [c4:c65536] = ""
    Range("A1").Resize(UBound(A), UBound(A, 2)) = A

End Sub

1.rar (17.71 KB, 下载次数: 5)

2019-10-14 11:41 上传

点击文件名下载附件

wtb8150

谢谢超级版主老师！
真够神速的，立马给予赐教，真是感激！谢谢您的赐教！谢谢！！
                  
              
     

wtb8150

有一个小问题，斗胆问一问老师。
      1、 执行代码后覆盖了表2并插入了对应值，这没错。能不能只插入对应值到表2的C列而不覆盖？
      2、能不能按照表2 G1的动态值来插入表1 的动态C:E列的值？
谢谢赐教！

wtb8150

不知是我的理解有误还是怎么的，每次执行时表2的C列好像都没有更新，原来是什么数据仍是什么数据。敬请老师指教！谢谢！

爱疯

2.rar (17.22 KB, 下载次数: 1)

2019-10-14 15:00 上传

点击文件名下载附件


问1，虽然能，但只插入不覆盖，还有疑问。
      比如，第1次选择项目类1，第2次选择项目类2，那对于第2次来说，上1次的所有结果都是旧数据
      而现在你想变要只插入不覆盖，那不是上一次的所有结果都保留，那么第2次的结果放在哪儿呢？


问2，已改
        个人觉得在满足功能的前提下，能简单点，就尽量简单点。
       当然，这点区别还无所谓，如果这样的情况很多，才有体会。

wtb8150

谢谢超级版主老师！感谢您的热情指教！
动态插入我已经调好，能按表2的G1动态值插入表1对应值。这次在老师的赐教下明白了许多。
至于覆盖我的意思是只在表2的C列覆盖不知可行否。其实这样也很好。
谢谢老师热心赐教！谢谢！！