如何在Excel中的每一行之间快速插入空格？

在Excel中，您可以使用右键菜单在活动行上方选择一行，但是您知道如何在每行中插入空白行吗，如下图所示？ 在这里，我介绍了一些快速解决此问题的技巧。

通过排序功能在每行之间插入空白行

通过VBA代码在每行之间插入空白行

Kutools for Excel在每行/列之间插入空白行/列

---

通过排序功能在每行之间插入空白行

要在每行之间插入空白行，可以先填充两次数字，然后再对数字进行排序。

1.在相邻数字中，填写一系列数字以匹配行号。

2.复制序列号，并将其粘贴到最后一个数字之后的单元格中。

2.选择所有序列号，单击 数据 > 最小到最大排序.

3.在弹出 排序警告 对话，保持 展开选择选项 选中，单击 排序.

现在，已在每行之间插入空格。 您可以稍后删除序列号列。

---

通过VBA代码在每行之间插入空白行

如果您熟悉宏代码，下面的代码也可以为您提供帮助。

1。 按 Alt + F11键 启用键 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码复制并粘贴到模块中。

VAB：在行之间插入空格s

Sub RowsInsertInSelectCells()
'UpdatebyExtendoffice20180801
Dim xWS As Worksheet
Dim xCR, xR, xCC, xC, xFC, xFR As Long
Dim xFNum As Integer
Dim xRg, xCRg As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 0 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xWS = ActiveWorkbook.ActiveSheet
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Count > 0 Then
        xCR = xRg.Rows.Count
        xCC = xRg.Columns.Count
        xR = xRg.Row
        xC = xRg.Column
   Application.ScreenUpdating = False
    For xFC = 0 To xCC - 1
        For xFR = xCR To 1 Step -1
            xWS.Cells(xR + xFR, xC + xFC).Insert
        Next
    Next xFC
    Application.ScreenUpdating = True
    End If

End Sub

3。 按 F5 键运行代码，会弹出一个对话框，提醒您选择工作数据。

4。 点击 OK。 现在，已在选定的行之间插入空格。

---

Kutools for Excel在每行/列之间插入空白行/列

如果要在每个行或列之间快速轻松地插入空白行或列，则可以使用 Kutools for Excel“ Insert Blank Rows & Columns 实用程序，您可以根据需要指定行的间隔和空白行的数量。

安装后 Kutools for Excel，请执行以下操作：（立即免费下载Kutools for Excel！）

1.选择要插入空白行或列的数据范围，单击 Kutools > Insert > Insert Blank Rows & Columns.

2。 在里面 Insert Blank Rows & Columns 对话框，检查 Blank rows or Blank columns 根据需要，并指定以下选项 Interval of 和 Rows.

3。 点击 Ok.

每行之间插入空白行	在每列之间插入空白列

小技巧：此实用程序支持撤消 按Ctrl + Z.

  以特定间隔插入空白行或列