有时可能需要处理表，并且希望在表的每个现有行之间插入空白行。有几种简单的方法可以做到这一点。如果您不想使用宏，则可以按照以下步骤操作：

。在列表或表中的任何位置插入空白列。

。将值1放在新列的第一个表格单元格中，将值2放在第二个单元格中。

。选择在步骤2中输入的两个单元格，然后使用“填充”手柄将其拖到表中的最后一个单元格。现在，您应该有一列用连续的数字填充，从1到表中有很多行。这些填充的单元格仍应选择。

。按Ctrl + C。这会将单元格复制到剪贴板。

。在新列的最后一个单元格正下方，粘贴复制的单元格。

现在，您应该在表格下方具有另一个单元格区域，并用在步骤3中创建的相同连续数字填充该单元格。 。选择原始表中的任何单元格。

。显示功能区的“数据”选项卡。

。在“排序和筛选”组中单击“排序”。 Excel选择表格，包括在步骤5中添加的行，并显示“排序”对话框。

（请参见图1。）

。指定您要按包含数字的新列升序排列。

。单击确定。该表已被诉诸。

。删除您在步骤1中添加的列。

上述步骤之所以有效，是因为Excel进行排序的方式。

如果由于某种原因而导致最后两个空白行彼此相邻（换句话说，排序不能按应有的方式工作），则可以对流程进行一些修改。在步骤2中，在顶部的两个单元格中输入数字1和3。这导致在新列中填充奇数。无需执行第4步和第5步，您只需在相同区域填充偶数个单元格（简单地用2填充第一个单元格，用4填充第二个单元格）。然后，在步骤6到10中进行排序时，结果表将以正确的顺序对行进行交织。

如果您不反对使用宏，则插入空白行会更加容易。只需选择要影响的行，然后执行此宏：

Sub AddBlankRows1()

Dim J As Integer     Dim MySelection As Range

If TypeName(Selection) <> "Range" Then Exit Sub     Set MySelection = Selection     Application.ScreenUpdating = False     For J = MySelection.Rows.Count To 1 Step –1         MySelection.Rows(J).EntireRow.Insert     Next J     Application.ScreenUpdating = True End Sub

同一宏上的变体稍微短一点是：

Sub AddBlankRows2()

FR = Selection.Rows.Row     LR = Selection.Rows.Count + FR - 1     For R = LR To FR + 1 Step -1         Rows(R).Insert     Next End Sub

当然，您应该记住，如果添加行的唯一目的是“隔开”您的信息，则只需增加表中每行的高度就可以实现相同的目的。仅在需要空白行才能在数据表中插入其他信息时，才应实际添加空白行。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

链接：/ excelribbon-ExcelTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（9667）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

链接：/ excel-Easily_Adding_Blank_Rows [轻松添加空白行]。