在MS VBA中使用两个表中的相似字段运行IF语句

If [表1].[字段1] = [表2].[字段2] Then
    ' 如果相似字段匹配，则执行的代码
Else
    ' 如果相似字段不匹配，则执行的代码
End If

Sub CompareFields()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim rng1 As Range
    Dim rng2 As Range
    Dim cell1 As Range
    Dim cell2 As Range
    
    ' 设置要比较的两个工作表和字段范围
    Set ws1 = ThisWorkbook.Worksheets("表1")
    Set ws2 = ThisWorkbook.Worksheets("表2")
    Set rng1 = ws1.Range("A1:A10")
    Set rng2 = ws2.Range("B1:B10")
    
    ' 遍历字段范围，逐个比较相似字段的值
    For Each cell1 In rng1
        For Each cell2 In rng2
            If cell1.Value = cell2.Value Then
                ' 如果相似字段匹配，则执行的代码
                ' 可以在这里编写对匹配项的操作
                MsgBox "相似字段匹配：" & cell1.Value
            Else
                ' 如果相似字段不匹配，则执行的代码
                ' 可以在这里编写对不匹配项的操作
                MsgBox "相似字段不匹配：" & cell1.Value
            End If
        Next cell2
    Next cell1
End Sub