在VBA中比较单元格和数组

Sub CompareCellsAndArray()
    Dim rng As Range
    Dim arr() As Variant
    Dim i As Integer
    
    ' 定义要比较的单元格范围
    Set rng = Range("A1:A5")
    
    ' 定义要比较的数组
    arr = Array("Value1", "Value2", "Value3", "Value4", "Value5")
    
    ' 循环遍历单元格和数组进行比较
    For i = 1 To rng.Cells.Count
        If rng.Cells(i).Value = arr(i - 1) Then
            Debug.Print "单元格 " & rng.Cells(i).Address & " 和数组中的值相等"
        Else
            Debug.Print "单元格 " & rng.Cells(i).Address & " 和数组中的值不相等"
        End If
    Next i
End Sub