Копировать относительную формулу в excel с VBA

Question

Я пытаюсь скопировать формулы с относительными именами строк и столбцов.

У меня есть базовый столбец с 10 формулами, и я пытаюсь скопировать формулу 5 раз по столбцам справа.

Так, например, в базовой колонке у меня есть эта формула = A1 + B1, и я хочу сделать следующую ячейку this = B1 + C1 next = C1 + D1 и так далее.

У меня есть этот код

For i = 1 To Range("B1").Value 
     For j = 1 To 10 
      Sheet2.Cells(5 + j, 2 + i).FormulaR1C1 = "=c[-1]" 
     Next j 
Next i 

Но это только копирует значение из левой ячейки

Было бы легко, если формулы были одинаковы, но они разные. Поэтому я пытаюсь найти способ динамически ссылаться всегда на левую ячейку.

Это одна из реальных формул

='Balance sheet'!B13*360/'P&L'!B2 

Я хочу следующую ячейку, чтобы быть

='Balance sheet'!C13*360/'P&L'!C2 

И с кодом я есть сейчас рядом клетка =B3

Answer 1

Если вы хотите скопировать формула вправо, которая может быть выполнена с помощью операции fill. Так что с вашей формуле в ячейке, определяемой базовой строки и базового столбца, а вместе с ним с помощью относительной адресации, как в вашем вопросе, просто:

Option Explicit 
Sub foo() 
    Const lBaseColumn As Long = 3 
    Const lBaseRow As Long = 6 
    Const lRpts As Long = 10 

Cells(lBaseRow, lBaseColumn).Resize(columnsize:=lRpts).FillRight 

End Sub 

Следует отметить, что вы можете FillRight из нескольких строк сразу, если это это то, что вам нужно сделать. Ниже будет заполнить С6: С10 до L6: L10

Option Explicit 
Sub foo() 
    Const lBaseColumn As Long = 3 
    Const lBaseRow As Long = 6 
    Const lColRpts As Long = 10 
    Const lRows As Long = 5 

Cells(lBaseRow, lBaseColumn).Resize(rowsize:=lRows, columnsize:=lColRpts).FillRight 

End Sub 

Answer 2

эти две строки будут копировать формулу/содержимое из левой ячейки и скопировать в эталонной ячейке. это будет также скопировать формулу с относительной ссылкой

Range(refCellID).Offset(0,-1).Copy 
Range(refCellID).PasteSpecial