循环时更新行/单元格引用

Question

我正在引用另一个工作簿中的单元格，以复制该工作簿中的单元格内容。我想循环遍历该工作簿中的行，直到出现空行为止。示例：

Range("B13:C13").Select
ActiveCell.FormulaR1C1 = "='[Junk Work File.xlsx]Total'!R1C8"  

是否有一种方法可以更新行/列(R1C8)，以便获取后续行的单元格内容？

Answer 1

因为公式是字符串，所以可以声明变量、增量变量、将其转换为字符串并将其合并到公式中。

Dim i as Integer
i = 1
Do While [other workbook row is not blank] 'put your loop condition here
    ActiveCell.FormulaR1C1 = "='[Junk Work File.xlsx]Total'!R" & CStr(i) & "C8"
    i = i + 1
Loop