Замена значения в Excel после каждой итерации

Question

Я хочу отослать ячейку на текущем листе к ячейке на другом листе и распечатать ее.Я хочу, чтобы тот же процесс повторялся, но смещение ссылочной ячейки для формулы на одну строку и нулевой столбец до тех пор, пока ссылочная ячейка не станет пустой.

ActiveCell.FormulaR1C1 = "=sheet2!R[2]C[1]"
ActiveWindow.SelectedSheets.PrintOut

ActiveCell.FormulaR1C1 = "=sheet2!R[3]C[1]"
ActiveWindow.SelectedSheets.PrintOut

ActiveCell.FormulaR1C1 = "=sheet2!R[4]C[1]"
ActiveWindow.SelectedSheets.PrintOut

Answer 1

Это?

Кроме того, я бы не стал полагаться на ActiveCell.Есть ли конкретная ячейка, которую вы хотите непрерывно перезаписывать?В приведенном ниже коде я меняю A1 для каждой итерации, поэтому вам необходимо обновить его до нужного диапазона ячеек.

---

Sub PrintMe()

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet2")

Dim LR As Long
LR = ws2.Range("A" & ws.Rows.Count).End(xlUp).Row

For i = 2 To LR
    ws1.Range("A1").Value = ws2.Range("A" & i).Value
    ws1.PrintOut
Next i

End Sub