可以使用以下VBA代码来实现:
Sub AddRow() Dim lastRow As Long lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Rows(lastRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows(lastRow + 1).FillDown End Sub
该代码首先确定目前最后一行的行号,然后将新行插入到其下方,并将其复制格式和公式。可以通过按下快捷键Alt + F11打开VBA编辑器,粘贴代码并保存来使用。在Excel中,可以分配宏到特定的按钮,以便以后轻松地运行它。