根據一個表格內容自動匹配另一個表格內容進行替換

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、完成的樣子