[已解决]如何批量替换数据？

lingyuncelia1

想将以上数据按数据批量替换成下图数据：         
代码应如何写呢？

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-13 11:41

1. Sub 替换()
   
2.     Dim cel As Range
   
3.     arr = Sheets("替换数据").[a1].CurrentRegion
   
4.     Dim crr(1 To 9)
   
5.     For i = 1 To UBound(arr)
   
6.         crr(arr(i, 1)) = arr(i, 2)
   
7.     Next
   
8.     For Each cel In [a1:i9]
   
9.         x = cel.Value
   
10.         cel = crr(x)
    
11.     Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

心正意诚身修

和VLOOKUP引用。

grf1973

1. Sub 替换()
   
2.     Dim cel As Range
   
3.     arr = Sheets("替换数据").[a1].CurrentRegion
   
4.     Dim crr(1 To 9)
   
5.     For i = 1 To UBound(arr)
   
6.         crr(arr(i, 1)) = arr(i, 2)
   
7.     Next
   
8.     For Each cel In [a1:i9]
   
9.         x = cel.Value
   
10.         cel = crr(x)
    
11.     Next
    
12. End Sub

复制代码

grf1973

Sub 替换()
    Dim cel As Range
    For Each cel In [a1:i9]
        cel = Application.WorksheetFunction.VLookup(cel, Sheets("替换数据").[a1:b9], 2, 0)
    Next
End Sub

lingyuncelia1

心正意诚身修 发表于 2016-4-13 11:37
和VLOOKUP引用。

的确最方便是用VLOOKUP(=VLOOKUP(替换前!A1,替换数据!$A$1:$B$9,2,0)),之前想得太复杂了。