方法三:在上方的输入栏中输入以下内容即可: 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
如果你想在中间某行插入的话,那它之后的行是否需要更新呢?你的问题不够详细,问题都可以解决,如果是在最后的空白行插入且自动套用的话: 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 在手机上不方便,如果有问题再找我。