用字典的方式根据条件替换相应内容

1005423860

如附件所示，求助

周义坤

1. 如果是上百万行,字典也没用,用数据库更新语句处理吧

复制代码

hfwufanhf2006

你这是想当然吧，如果是黄色区域有成百上千行或更多，字典会很节省时间。但如果是绿色区域很多而黄色区域很少（不超过200行），字典的意义就不大，数组也可以的。尽管如此，我还是给你写一个字典代码，但是字典是对黄色区域的，因为绿色区域总归是要扫描一次的，用字典是多余：
Dim zd As Object
Set zd = CreateObject("scripting.dictionary")
For i = 2 To [f1000000].End(3).Row
    zd(Cells(i, 6).Value & Cells(i, 7).Value) = Cells(i, 8)
Next i
For i = 2 To [a1000000].End(3).Row
    s = Cells(i, 1) & Cells(i, 2)
    If zd.exists(s) Then
       Cells(i, 3) = zd(s)
    End If
Next i

1005423860

hfwufanhf2006 发表于 2019-10-13 22:17
你这是想当然吧，如果是黄色区域有成百上千行或更多，字典会很节省时间。但如果是绿色区域很多而黄色区域很 ...

好的，我去试试。。

1005423860

hfwufanhf2006 发表于 2019-10-13 22:17
你这是想当然吧，如果是黄色区域有成百上千行或更多，字典会很节省时间。但如果是绿色区域很多而黄色区域很 ...

您好，我还想再加一个功能，就是mxgbox 本次替换总共替换的数量 ，能达到 “本次共替换****个数据”，这个应该怎么写啊。。

hfwufanhf2006

1005423860 发表于 2019-10-14 10:42
您好，我还想再加一个功能，就是mxgbox 本次替换总共替换的数量 ，能达到 “本次共替换****个数据”，这 ...

加一个计数器变量，比如(局部代码)：js=0     '初始化计数器为0

For i = 2 To [a1000000].End(3).Row
    s = Cells(i, 1) & Cells(i, 2)
    If zd.exists(s) Then
       Cells(i, 3) = zd(s)
       js=js+1    '每替换一个，计数器+1
    End If
Next i

MsgBox "本次共替换了 " & js & " 个数据"