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