EXCEL表中2张工作表的数据匹配?

发布网友 发布时间：7小时前

我来回答

共1个回答

热心网友 时间：2分钟前

在Excel中，当需要比较两张工作表的数据时，可以利用公式或VBA代码来实现数据匹配。这里有两种常用的方法：

公式法：假设你在Sheet1的A列中查找Sheet2的B列内容，可以在Sheet2的C列使用VLOOKUP函数。例如：

=VLOOKUP(B1, Sheet1!A:A, 1, FALSE)

如果在Sheet1中找到匹配项，结果会显示在C列；反之，#N/A表示未找到匹配。

方法二：如果你更倾向于使用编程，可以编写VBA代码。以下是一个简单的Sub过程，它会查找Sheet2的B列数据在Sheet1中是否存在，并用红色标记匹配的行：

vba
Sub filter()
Dim s1 As Variant
Dim i As Integer
Dim 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)
Set foundRange = Sheet1.Range("B1:B20357").Find(What:=s1(i, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)

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

以上代码会遍历Sheet2的B列，查找Sheet1中是否存在相同值，并对匹配项进行高亮标记。未找到时，会弹出消息框提示。