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

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