请教利用VBA字典替换单元格内容的问题

sbansar

附件已经上传
没找到问题在哪里，找出来替换的不是想要的数据，求助大神












代码

Sub test()
'需求：补上A3~C3,A11~C11,A13~C13的省市数据
'将地址替换成店名

lastrow = Worksheets("源").Cells(Rows.Count, 1).End(xlUp).Row

Dim data, dic, i&
data = Worksheets("字典").UsedRange.Value
Set dic = CreateObject("Scripting.Dictionary")
'替换地址
For i = 1 To UBound(data)
    dic(data(i, 4)) = data(i, 2)
Next i
data = Worksheets("源").UsedRange.Value
For i = 1 To UBound(data)
        If dic.exists(data(i, 1)) Then data(i, 1) = dic(data(i, 2))
Next i


With Worksheets("源").Range("d2:d" & lastrow)
   .NumberFormat = "@"
   .Value = data
End With
Set dic = Nothing



End Sub

sbansar

需求

将地址，替换成 缩写（见字典）
补上省市信息。


之前是用For Next 直接操作 Cells，然后替换。

但是数量一旦多，速度极慢，有很多的操作（因为还有其他的ForNext循环，）老机器上能慢到几分钟之久。

jiangxiaoyun

没看出和字典有什么关系。。。。要求看不懂

sbansar

jiangxiaoyun 发表于 2022-12-2 11:00
没看出和字典有什么关系。。。。要求看不懂

之前是用For next循环来操作的

就是直接操作单元格数据，是可以实现。


但是数据量多的时候，速度慢到无法接受。

所以想通过字典来解决，直接在内存里操作然后回写，这样会快很多。

陆离Lowry

你这不判断区不就全是上海了吗？上海就全是环贸了

清风竹-

请看附件。

ykcbf1100

这样就可以。

sbansar

陆离Lowry 发表于 2022-12-2 11:38
你这不判断区不就全是上海了吗？上海就全是环贸了

是啊，这个是错误的，所以贴上来给前辈们挑错。

sbansar

感谢各位兄台，问题已经解决，几个方案都参考了，获益良多