Макрос Excel - для приращения цикла - PullRequest
2 голосов
/ 15 марта 2011

Я посмотрел, но не могу найти решение.

Как вы увеличиваете переменную? Как и в любом другом языке, вы просто делаете ++ (имя переменной) как раз перед концом цикла. В моем примере я хотел бы увеличить J.

Dim j as integer
j = 13
FinalRow = Range("B15").End(xlUp).Row
        For i = 9 To FinalRow
            Range("B" & i).Copy Destination:=Sheets("Design").Range("A" & j)
            J++
        Next i

Код повторяется от B9-B15 и вставляет информацию в конструкторскую таблицу от A13 и ниже.

1 Ответ

5 голосов
/ 15 марта 2011

Просто сделайте это:

J = J + 1

Simples.

...