根据一个表格内容自动匹配另一个表格内容进行替换

1、建立一个工作表1

 

2、建立工作表2（注意不要有重复的匹配列，如：a;a）

3、右键表格1

4、把代码复制进去

Sub x()
Dim dict
Set dict = CreateObject("Scripting.Dictionary")
For i = 2 To Sheet2.UsedRange.Rows.Count
dict.Add Sheet2.Cells(i, 1).Value, Sheet2.Cells(i, 2).Value
Next

For Each k In dict
Debug.Print k, dict.Item(k)
Next

For i = 2 To Sheet1.UsedRange.Rows.Count
If dict.Exists(Sheet1.Cells(i, 1).Value) Then
Sheet1.Cells(i, 2) = dict.Item(Sheet1.Cells(i, 1).Value)
Sheet1.Cells(i, 1).Interior.ColorIndex = 27
End If
Next
End Sub

5、点击运行即可

6、完成的样子

 

转载于:https://www.cnblogs.com/yognjin/p/9507139.html