Как сместить диапазон в цикле for

Question

Я хочу сместить мой rng2 для каждой ячейки в rng1

Прямо сейчас в моем Rng2 Q по умолчанию установлен в ноль

Каждый раз, когда я перебираю новую ячейку (мой первый дляцикл) Я хочу, чтобы Q увеличилось на 1, потому что для каждой ячейки в Rng я хочу найти соответствие в новой строке.

Где я могу поместить Q = Q + 1 в мой код? Остальная часть моего кода работает нормальноЯ просто хочу сместить мой rng2 на одну строку, каждый раз, когда я перебираю новую ячейку в rng1.Любая помощь будет оценена

    Sub StructurePivot2()
    Dim X As Variant, Var As Double, D As Integer, P As Integer, Q As Integer, Z As Integer, ws As Worksheet, rng3 As Range, category As Variant, rng As Range, cell As Variant, i As Integer, rng2 As Range
    Set ws = Worksheets("Sheet1")
    Set rng = Worksheets("Sheet1").Range("A2:A173")
    Set rng2 = Worksheets("Sheet1").Range("B2:AI2").Offset(Q)
    P = 0
        For Each cell In rng

                        For i = 1 To 5

                          Z = Application.WorksheetFunction.Match(i, rng2, 0)
                          Worksheets("Sheet2").Range("A3").Offset(P, 13) = Z
                          P = P + 1

                     Next i

Next cell
End Sub

Answer 1

В цикле:

Next i
set rng2 = rng2.Offset(1, 0) 'Advance to next row
Next cell