VBA中怎么判断Sheet2中B列单元格的值是否存在于Sheet1中B列单元格

在VBA (Visual Basic for Applications) 中，你可以通过嵌套循环或者数组查找的方式来进行这种比较。以下是一个简单的示例：

Sub CheckValues()
    Dim rngSheet1 As Range
    Set rngSheet1 = Sheet1.Range("B:B") '假设Sheet1的B列是你想要搜索的范围
    
    Dim cellSheet2 As Range
    For Each cellSheet2 In Sheet2.Range("B:B") '遍历Sheet2的B列
        If Application.WorksheetFunction.Index(rngSheet1, Application.WorksheetFunction.Match(cellSheet2.Value, rngSheet1, 0)) Is Nothing Then
            ' 如果Sheet1中没有找到对应的值，则cellSheet2.Value不存在
            MsgBox "Sheet1中没有" & cellSheet2.Value & "这个值"
        End If
    Next cellSheet2
End Sub

这段代码首先设置Sheet1的B列范围到变量`rngSheet1`，然后对Sheet2的B列中的每个单元格进行迭代。它使用`WorksheetFunction.Match`函数找出Sheet1中对应值的位置，如果找不到（返回#N/A），则说明该值不存在。