vlookup匹配两个工作表(EXCEL表中如何利用VLOOKUP将

方法一：公式法

在Sheet1的A列中，如果我们需要查找Sheet2的B列中的值是否存在于A列中，我们可以在Sheet2的C列使用VLOOKUP函数来实现。具体的公式为：=VLOOKUP(B1,Sheet1!A:A,1,0)。如果在Sheet1的A列中找到了与Sheet2的B列相匹配的值，那么对应的单元格会显示匹配的值；如果没有找到，那么会显示N/A，表示未匹配。

方法二：VBA代码法

通过编写VBA代码，我们可以更高效地查找并标记匹配的单元格。以下是一个简单的示例代码：

```vba

Sub 查找并上色()

Dim s1 As Variant

Dim i, j As Integer

Dim foundRange As Range

Application.ScreenUpdating = False '关闭屏幕更新以提高效率

s1 = Sheet2.Range("B1:B180").Value '获取Sheet2的B列数据

For i = 1 To UBound(s1, 1) '遍历s1数组中的每一行数据

Set foundRange = Sheet1.Range("B1:B20357").Find(What:=s1(i, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) '在Sheet1中查找匹配的数据

If Not foundRange Is Nothing Then '如果找到了匹配的数据

Sheet1.Cells(foundRange.Row, 2).EntireRow.Interior.Color = RGB(255, 0, 0) '将找到的单元格所在的整行上色为红色

Else

MsgBox s1(i, 1) & "并未在sheet1中找到", vbInformation '如果未找到数据，弹出提示信息框

End If

Next i

Application.ScreenUpdating = True '恢复屏幕更新

End Sub

```

这个VBA代码将在Sheet1中查找与Sheet2的B列相匹配的数据，并将找到的单元格所在的整行上色为红色。如果未找到匹配的数据，则会弹出一个提示信息框。通过这种方式，我们可以更直观地看到哪些数据是匹配的，哪些是没有匹配的。