在上方的输入栏中输入以下内容即可: 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