VBA:如何将一列中变化的单元格的值与另一个动态范围进行比较？

Sub CompareValues()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim cell1 As Range
    Dim cell2 As Range
    
    ' 设置要比较的范围
    Set rng1 = Range("A1:A10") ' 变化的单元格所在的列
    Set rng2 = Range("B1:B10") ' 另一个动态范围
    
    ' 循环遍历范围1中的每个单元格
    For Each cell1 In rng1
        ' 循环遍历范围2中的每个单元格
        For Each cell2 In rng2
            ' 比较两个单元格的值
            If cell1.Value = cell2.Value Then
                ' 如果值相等，则执行相应的操作
                ' 例如，可以在这里添加代码来处理匹配的情况
                MsgBox "匹配的值：" & cell1.Value
            End If
        Next cell2
    Next cell1
End Sub