Как создать цикл, который пропускает ячейки в VBA с закрытого листа - PullRequest
0 голосов
/ 11 февраля 2019

Я хочу, чтобы активный лист добавлял запись каждые 4 строки в столбце C, извлекая данные ячейки из другого листа (как указано) через каждые 8 ​​строк (как показано).Я установил, что я хочу, но не в формате цикла.Я хочу, чтобы он продолжал искать каждые 8 ​​ячеек до фиксированного количества итераций (скажем, 12 циклов).

Попытался настроить его без цикла.Слишком много времени, так как есть много ячеек для ссылки

Sub Loop_Test1()

' Macro_Test2_CellCapture_721 Macro

    Range("C6").Select
    ActiveCell.FormulaR1C1 = _
        "='[EKJV 7-21 Schedule 05-02-19.xlsm]RHP 7-21 '!R42C14"

    Range("C10").Select
    ActiveCell.FormulaR1C1 = _
        "='[EKJV 7-21 Schedule 05-02-19.xlsm]RHP 7-21 '!R50C14"

    Range("C14").Select
    ActiveCell.FormulaR1C1 = _
        "='[EKJV 7-21 Schedule 05-02-19.xlsm]RHP 7-21 '!R58C14"

    Range("C18").Select
    ActiveCell.FormulaR1C1 = _
        "='[EKJV 7-21 Schedule 05-02-19.xlsm]RHP 7-21 '!R66C14"

End Sub

Результаты дают то, что я хочу, но нужен цикл.

1 Ответ

0 голосов
/ 11 февраля 2019

Не проверено, но, может быть, это будет работать для вас?

Sub Loop_Test2()

Dim iterator as long
Dim otherIterator as long

otherIterator=0

for iterator=6 to 18 step 4

    Range("C" & iterator).Select
    ActiveCell.FormulaR1C1 = _
        "='[EKJV 7-21 Schedule 05-02-19.xlsm]RHP 7-21 '!R" & 42 + otherIterator & "C14"

    otherIterator=otherIterator+8

next

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...