vba -设置数字数组并将其与单元格进行比较

Dim 数组名(大小) As 数据类型

Dim numbers(4) As Integer

Sub CompareArrayWithCells()
    Dim numbers(4) As Integer
    Dim i As Integer
    
    ' 设置数组的值
    numbers(0) = 1
    numbers(1) = 2
    numbers(2) = 3
    numbers(3) = 4
    numbers(4) = 5
    
    ' 比较数组元素与单元格的值
    For i = 0 To 4
        If numbers(i) = Range("A1").Offset(i, 0).Value Then
            MsgBox "数组元素 " & numbers(i) & " 与单元格 " & Range("A1").Offset(i, 0).Address & " 的值相等。"
        Else
            MsgBox "数组元素 " & numbers(i) & " 与单元格 " & Range("A1").Offset(i, 0).Address & " 的值不相等。"
        End If
    Next i
End Sub