Одновременное обновление двух переменных в Excel VBA для цикла

Question

Я создал таблицу Excel, содержащую матрицу формул. Все они отключены от переменной, которую я назвал «var». Я пытаюсь использовать счетчик для var, получить результаты из последнего столбца моей матрицы и сохранить эти результаты в новом столбце. 'var' поднимает на единицу, я получаю новый столбец результатов, затем записываю их в новый столбец рядом с первым набором результатов. и т. д. и т. д. Мне нужно, чтобы значение 'var' увеличивалось на единицу в одно и то же время, а значение счетчика столбцов 'c' увеличивается на 1.

Я уверен, что это глупая простая проблема;Я действительно ценю любую помощь. Ниже выложено временное решение вместе с кодом проблемы.

Где я в тупике:

Public Sub Rows()
Dim r As Integer, c As Integer, rev As Integer

'This is where I'm stuck; I need to update rev at the same time as c
For rev = 1 To 10  
    For c = 2 To 11
        Range("t1").Value = rev
        For r = 2 To 11
            Cells(r, c).Value = Range("A" & r)
        Next
    Next
Next
End Sub

Временное решение:

Public Sub Rows()
Dim r As Integer, c As Integer

'For now, I'm using c for both c and rev.  But rev won't always match c, 
so I need to figure out a way to update rev and c at the same time. 

For c = 2 To 11
    For r = 2 To 11
        Range("T1").Value = c - 1
        Cells(r, c).Value = Range("A" & r)

    Next
Next

End Sub

Я пробовал разныекомбинации, чтобы получить «var» и «c» для обновления одновременно, но я в этом тупике.

Answer 1

Как насчет этого:

Public Sub Rows()
Dim r As Integer, c As Integer, rev As Integer

'This is where I'm stuck; I need to update rev at the same time as c  
    For c = 2 To 11
        rev = c - 1
        Range("t1").Value = rev
        For r = 2 To 11
            Cells(r, c).Value = Range("A" & r)
        Next
    Next
End Sub