循环更新行/单元格引用

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