Скопируйте все формулы при вставке новой строки в лист Excel

Question

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

Формулы, которые я использую в этой таблице Excel, следующие:

1. =IFERROR(VLOOKUP(C4,'list.xlsx]Sheet1'!$A$4:$L$261,3,FALSE),"")

2. =IFERROR(G6*F6,"")

Я гуглил решение. У меня есть 2 идеи.

один, чтобы составить таблицу с этими данными. Я попробовал это. Формула № 1 сработала отлично. Но 2-я формула не скопировалась в следующую строку.

Второй, использующий код VBA. который работает только один раз. Когда в следующий раз открою Excel, мне снова придется создавать код VBA. Кроме того, он должен щелкнуть между ячейками, чтобы создать следующую строку.

Я хочу создать новую строку, если щелкнуть правой кнопкой мыши по sl no (крайний левый столбец) и нажать «вставить».

Пожалуйста, помогите.

Answer 1

Извините, я новичок в SO, но я хочу вам помочь:

1. Вы используете условную блокировку, например: $A$4:$L$261
2. =IFERROR(G6*F6,"") ничего не копирует

3. В VBA у вас есть функция PasteSpecial что управляет формулами из клетка, здесь какая-то бывшая использования этого:

   With Worksheets("YourWorksheet_name")
     .Range("Your_cell_input").Copy
      .Range("Your_cell_output").PasteSpecial Operation:=xlPasteSpecialOperationAdd
   End With
   

4. Если я хорошо понимаю, ты хочешь Маро, что вставляет формулы, когда добавляется новый стержень. Я рекомендую использовать что-то вроде этого:

   Давайте сделаем демонстрацию, что у вас есть формулы для столбца C, чтобы скопировать это (это влияет на столбец A)

   Private Sub Worksheet_Change(ByVal Target As Range)
   
     If Target.Column = ActiveCell.Column Then
       refRow = Target.Row - 1
       thisRow = Target.Row
       Range("C" & refRow).Copy Range("B" & thisRow)
     End If
   
   End Sub
   

5. В любом случае, пожалуйста, добавьте еще немного кода, который у вас есть, или снимки экрана, что вы ожидаете