VBA：通过变量循环列单元格

Question

我是这个 VBA 的新手。我想运行一个带有某些条件的循环，但我不想使用 cell() 语法，而是想对不同的列使用变量和不同的变量。 例如，不要使用“if cell(1, i) < cell(2, i-1)" i want to use "if varA < varB-1" where varA=cell(1, i), varB=cell(2, i) and varB-1=cell(2, i-1).

Dim i As Integer
i = 1
Do While i <= 10
if cell(1, i) < cell(2, i-1)
MsgBox Result
Loop

Answer 1

您可以将某个范围内的值分配给数组变量，例如

Sub demo()
    
    'Must be declared as Variant
    Dim arr As Variant
    
    'Use explict range rather than UsedRange - this is a demo only
    arr = ThisWorkbook.Sheets(1).UsedRange.Value
    
    Dim cl As Long, rw As Long
    
    For rw = 1 To UBound(arr, 1)
        For cl = 1 To UBound(arr, 2)
            Debug.Print "Row", rw, "Column", cl, "Value", arr(rw, cl)
        Next
    Next
End Sub