VBA如何大批量替换数据?

On_fire

VBA如何大批量替换数据?

1.     Data页: 每一个格的数据是不同数据 (是变量, 一定有重复), 下图

2.     R页: A列是配对的错误记录, 对应横向的B列才是正确的, 中图

3.     Output页: 将所有错误记录, 替换是正确的, 上图

源数据n多, 请老师, 大神帮帮忙...

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheet2.[a1].CurrentRegion
   
4.     For i = 1 To UBound(arr)
   
5.         d(arr(i, 1)) = arr(i, 2)
   
6.     Next
   
7.     brr = ActiveSheet.UsedRange
   
8.     For i = 1 To UBound(brr)
   
9.         For j = 1 To UBound(brr, 2)
   
10.              If d.exists(brr(i, j)) Then brr(i, j) = d(brr(i, j))
    
11.         Next
    
12.     Next
    
13.     ActiveSheet.UsedRange = brr
    
14. End Sub

复制代码

lsc900707

代码需要一些时间审核，先回传附件供测试：

ashleyfeng

怎麼跑出的結果與DATA一樣呀?

On_fire

lsc900707 发表于 2018-6-14 21:25

谢谢老师…