如何在Excel中插入行时自动填充公式？

当您在现有数据行之间插入空白行时，公式不会自动复制并粘贴到新行中，您需要手动拖动或填充。但有时，您可能希望在数据区域之间插入空白行时，能够像下图所示那样自动填充公式。本文将介绍一些快速解决此问题的技巧。

通过创建表格，在插入空白行时自动填充公式

使用VBA代码在插入空白行时自动填充公式

通过创建表格，在插入空白行时自动填充公式

在Excel中，表格格式可以帮助您将上述公式自动填充到新插入的空白行中，请按照以下步骤操作：

1. 选择要自动填充公式的区域，然后点击 插入 > 表格，如下截图所示：

2. 在 创建表格 对话框中，如果您的数据有标题行，请勾选 我的表格有标题，如下截图所示：

3. 然后点击 确定 按钮，表格已创建完成，现在，当您插入一个空白行时，上述公式会自动填充到新行中，如下截图所示：

使用VBA代码在插入空白行时自动填充公式

如果您不想将数据转换为表格，下面的VBA代码也可以帮助您实现这一功能。

1. 选择包含您想自动填充公式的 工作表 标签，并右键单击选择 查看代码 从上下文菜单进入 Microsoft Visual Basic for Applications 窗口，然后复制并将以下代码粘贴到模块中：

VBA代码：在插入空白行时自动填充公式

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
    Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

2. 然后保存并关闭此代码，返回工作表，现在，当您双击数据之间的单元格时，将在活动单元格下方插入一个新行，并且公式也会自动填充。

演示：在插入空白行时自动填充公式