如何使用 Excel VBA 检查 Range 中的每个单元格是否在另一个 Range 上找到？

Question

我在同一工作簿中有 Worksheets("North").Range("B3:B500") 上的数据和 Worksheets("Auto").Range("A2:A22") 上的数据。 如何检查第一个 Range 中的每个 Cell 是否在第二个 Range 上找到，如果存在，是否会运行一些代码（Offset）？

下面这行代码的问题： 如果 Cell.value = Worksheets("Auto").Range("A2:A22") 那么

Sub Check_Range()

Dim WorkOrder As Range
Dim Closed_Data As Range
Dim Cell As Object

Set WorkOrder = Worksheets("North").Range("B3:B500")

Set Closed_Data = Worksheets("Auto").Range("A2:A22")

     For Each Cell In WorkOrder
    
        If Cell.value = Worksheets("Auto").Range("A2:A22") Then
        
         Cell.Offset(, 6).value = "Close"
         Cell.Offset(, 7).value = Now

        End If
    Next Cell
    
End Sub

Answer 1

无法将一个单元格的值与一个范围进行比较。试试这个代码：

Sub Check_Range()

    Dim WorkOrder As Range
    Dim Closed_Data As Range
    Dim Cell As Object
    
    Set WorkOrder = Worksheets("North").Range("B3:B500")
    Set Closed_Data = Worksheets("Auto").Range("A2:A22")
        
    On Error Resume Next
    For Each Cell In WorkOrder
        With Cell
            WorksheetFunction.Match .Value, Closed_Data, 0  'value search
            If Err.Number = 0 Then  ' if there is no error, then the value was found
                .Offset(, 6).Value = "Close"
                .Offset(, 7).Value = Now
            End If
            Err.Clear
        End With
    Next Cell
    On Error GoTo 0
End Sub