在 Excel 工作表中插入新行時復制所有公式

Question

我想在 Excel 工作表中插入新行時復制所有公式。 我有一些計算公式，我正在從另一個 Excel 文件中獲取一些值。

我在這個 Excel 工作表中使用的公式如下：

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

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

我用谷歌搜索了一個解決方案。 我有2個想法。

用這些數據制作一張表格。 我試過這個。 公式 no:1 工作得很好。 但是第二個公式沒有復制到下一行。

第二個使用 VBA 代碼。 只工作一次。 下次打開excel時，我必須再次創建VBA代碼。 此外，它需要在單元格之間單擊以創建下一行。

我想在 sl no（最左邊的列）上單擊鼠標右鍵並單擊“插入”時創建一個新行。

請幫忙。

Answer 1

對不起，我是新來的，但我想幫助你：

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. 如果我很明白你想要一個馬羅，當添加新桿時粘貼一個forulas。 我建議使用這樣的東西：

   讓我們做一個演示，你在 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. 無論如何，請添加更多您擁有的代碼或截屏您所期望的