方法一：选择带有公式的一行复制，然后在要插入行的地方点右键选择插入已复制的方法二：将当前的数据区域转换成table格式，07版的在插入透视表的右边那个按钮，03版的在data菜单下的list，excel就会自动套用格式和公式，智能识别方法三：在上方的输入栏中输入以下内容即可：

Private Sub Worksheet_Change(ByVal Target As Range)On Error Resume NextIf 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