Question

我希望活动工作表通过每8行（如图所示）从另一张工作表（给定）中提取单元格数据来在C列中每4行添加一个条目。我已经设置了我想要的东西，但没有设置循环格式。我希望它继续每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

结果给出了我想要的但需要循环。

Answer 1

未经测试，但这也许对您有用吗？

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

如何创建循环以从封闭工作表跳过VBA中的单元格

1 个答案: