对于具有多个范围的循环？ VBA

Question

我想做一个具有多个范围的 for 循环，但我找不到“设置”范围的方法，你能帮我吗？

这是我的一个范围的代码：

Dim mycell As Range
Dim myrange As Range
    
Set myrange = src.Worksheets("Feuil1").Range("G1:500")
    
For Each mycell In myrange
        data = mycell.Value
Next mycell

但是如何在 for 循环中同时处理两个范围，以及在 if 条件中的一个范围和另一个 if 条件中的另一个范围之后呢？

Answer 1

如果要遍历两个不同（相同大小）的范围，则可以使用For...Next循环：

Dim i As Long, data1, data2
Dim myrange1 As Range, myrange2 As Range
    
Set myrange1 = src.Worksheets("Feuil1").Range("G1:G500")
Set myrange2 = src.Worksheets("Feuil1").Range("J1:J500")
    
For i = 1 to myrange1.Cells.Count
    data1 = myrange1.Cells(i).Value
    data2 = myrange2.Cells(i).Value
    'do something with data1 and data2
Next i