方法一:选择带有公式的一行复制,然后在要插入行的地方点右键选择插入已复制的方法二:将当前的数据区域转换成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