在Excel工作表中插入新行时复制所有公式

提问于 2024-05-09T01:52:41+08:00

浏览次

-1

我想在Excel工作表中插入新行时复制所有公式 . 我有一些计算公式，我从另一个Excel文件中获取一些值 .

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

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

我用Google搜索解决方案 . 我有2个想法 .

一个用这些数据制作表格 . 我试过这个 . 公式编号：1完美无缺 . 但第二个公式没有复制到下一行 .

第二个使用VBA代码 . 只工作一次 . 下次打开excel时我必须再次创建VBA代码 . 此外，它需要在单元格之间单击以创建下一行 .

我想在右键单击sl no（最左边的列）并单击“insert”时创建一个新行 .

请帮忙 .

1 回答

0
对不起我是新的SO但我想帮助你：
- 您使用条件阻止例如： $A$4:$L$261
- =IFERROR(G6*F6,"") 没有复制任何东西
- 在VBA中你有功能 PasteSpecial 什么是从单元格处理公式，这里有一些ex . 使用它：
```
With Worksheets("YourWorksheet_name")
  .Range("Your_cell_input").Copy
   .Range("Your_cell_output").PasteSpecial Operation:=xlPasteSpecialOperationAdd
End With
```
- 如果我很好理解你想要一个maro在添加新杆时粘贴一个forulas . 我建议使用这样的东西：
让我们做一个演示，你有colmn 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
```
- 无论如何，请添加更多代码，或者为您所期望的屏幕截图添加屏幕
回复于 2024-05-09T01:52:41+08:00

相关问题