Question

excel中如何插入新一行时，自动套用上一行的公式？

就是在一个表中插入一行，新插入的一行自动套用上一行的公式，而不用手动去拖和复制。如何实现。
知道的大神请赐教，不知道的别来凑热闹。
麻烦你们看清楚问题行不行。不复制。ok

Answer 1

方法一：选择带有公式的一行复制，然后在要插入行的地方点右键选择插入已复制的

方法二：将当前的数据区域转换成table格式，07版的在插入透视表的右边那个按钮，03版的在data菜单下的list，excel就会自动套用格式和公式，智能识别

方法三：在上方的输入栏中输入以下内容即可：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Application.WorksheetFunction.CountA(Target.Rows) = 0 Then _
Target.Rows.Offset(-Selection.Rows.Count, 0).AutoFill Destination:=Selection.Offset(-Selection.Rows.Count, 0).Resize(Selection.Rows.Count * 2)
End Sub

Answer 2

这个简单，将当前的数据区域转换成table格式，07版的在插入透视表的右边那个按钮，03版的在data菜单下的list，excel就会自动套用格式和公式，智能识别，希望能帮到你

追问

不是那个表格功能。我试过了。他这个和列表完全不一样。

追答

根据你的描述是能达到这种效果的，也不知道你究竟要哪种样子的，麻烦再详述，否则别人无法帮助你

Answer 3

可以这样操作，随便点带有公式的一行复制，然后在你要插入行的地方点右键选择插入已复制的行就可以了，这样插入的行就是有公式的了

Answer 4

你可以直接复制，然后插入复制的行。
也可以插入以后，在你要套用的格子上按ctrl+D复制上一行的公式。

Answer 5

如果你想在中间某行插入的话，那它之后的行是否需要更新呢？你的问题不够详细，问题都可以解决，如果是在最后的空白行插入且自动套用的话:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Application.WorksheetFunction.CountA(Target.Rows) = 0 Then _
Target.Rows.Offset(-Selection.Rows.Count, 0).AutoFill Destination:=Selection.Offset(-Selection.Rows.Count, 0).Resize(Selection.Rows.Count * 2)
End Sub
在手机上不方便，如果有问题再找我。