回路VBA中的2列动态循环

下面是一个示例代码，它演示了如何在VBA中使用循环遍历2个列：

Sub LoopOver2Columns() Dim i As Long, j As Long Dim lastRow As Long Dim myData As Variant

'获取最后一行
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

'将数据保存到数组
myData = Range("A1:B" & lastRow)

'循环遍历2列的数据
For i = LBound(myData) To UBound(myData)
    For j = LBound(myData, 2) To UBound(myData, 2)
        Debug.Print myData(i, j)
    Next j
Next i

End Sub

上面的代码将数据从A列和B列复制到数组中，并使用2个嵌套循环来遍历数组中的所有值。每次循环时，它将打印一行的值，然后转到下一行。

您可以根据需要更改代码以处理您的实际数据，例如使用IF语句来检查每个值是否符合特定条件。