从小白到高手：Excel 隔行插入空行的秘诀

Office技巧

2023-11-02 18:00:25

引言

在处理 Excel 数据时，你经常需要在表格中隔行插入空行，以方便数据查看、编辑或进一步处理。今天，我们将深入探讨各种 Excel 隔行插入空行的技巧，从简单的公式到高级的 VBA 代码，确保你掌握所有可用方法。

公式方法

ODD 函数

ODD 函数可用于检查数字是否为奇数。我们可以利用这一点来隔行插入空行：

在目标区域第一行输入以下公式：=ODD(ROW())
将公式向下填充到需要插入空行的所有行。
选中包含公式的区域，然后选择“插入”选项卡中的“插入行”。

行数除法

另一个简单的方法是将行数除以 2，然后检查余数是否为 0。如果是，则插入空行：

在目标区域第一行输入以下公式：=MOD(ROW(),2)=0
将公式向下填充到需要插入空行的所有行。
选中包含公式的区域，然后选择“插入”选项卡中的“插入行”。

VBA 代码

For Each 循环

我们可以使用 VBA 代码遍历目标区域并隔行插入空行：

Sub InsertBlankRows()
    Dim r As Long
    Dim i As Long

    r = 1
    Do Until r > Cells(Rows.Count, 1).End(xlUp).Row
        i = i + 1
        If i Mod 2 = 1 Then
            Rows(r).EntireRow.Insert
        End If
        r = r + 1
    Loop
End Sub

While 循环

另一种 VBA 解决方案是使用 While 循环：

Sub InsertBlankRows()
    Dim r As Long
    r = 1
    Do While r <= Cells(Rows.Count, 1).End(xlUp).Row
        If r Mod 2 = 1 Then
            Rows(r).EntireRow.Insert
        End If
        r = r + 1
    Loop
End Sub