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

网友投稿 356 2024-01-11

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

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

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

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

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

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

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

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

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

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

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

Copy

3。按 F5

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

4。点击 OK

。现在，已在选定的行之间插入空格。

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

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

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载免费全功能 30 天

安装后 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.

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

Tips:：此实用程序支持撤消 按Ctrl + Z.

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

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！