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

我在其他工作簿中引用单元格以复制该工作簿中的单元格内容。 我想遍历该工作簿中的行，直到出现空行。 例：

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

有没有办法可以更新行/列（R1C8），以便我拿起后续行的单元格内容？

Answer 1

因为公式是一个string，所以可以声明一个variables，将其增加，将其转换为string，并将其合并到公式中。

 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