Excel 一键删除间隔的空白行,方便数据筛选功能
Excel    2026-03-03 09:45:39    1    0    0
maker   Excel



1️⃣ 打开 VBA 编辑器

  1. 打开 Excel 2024。

  2. Alt + F11 → 进入 VBA 编辑器

  3. 在左侧的 “工程资源管理器” 找到你当前工作簿(例如 VBAProject (Book1))。

  4. 或者点击VB打开:

2️⃣ 插入模块

  1. 在左侧工程上右键 → 插入 → 模块

  2. 会生成一个新的模块(例如 Module1)。

  3. 你可以在右侧窗口里写 VBA 代码。


3️⃣ 粘贴宏代码

例如,你想按 A 列删除空白行,在模块里输入:

 Sub DeleteBlankRowsAColumnOnly()
    Dim LastRow As Long
    Dim i As Long

    ' 找到A列最后一行
    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从最后一行往上循环
    For i = LastRow To 1 Step -1
        ' 如果A列为空,则删除整行
        If Trim(Cells(i, 1).Value) = "" Then
            Rows(i).Delete
        End If
    Next i
End Sub

4️⃣ 运行宏

方法一:直接在 VBA 编辑器运行

  1. 光标放在宏里面 → 按 F5 → 运行。

方法二:在 Excel 里运行

  1. Excel 菜单 → 开发工具 → 宏(如果没显示开发工具选项卡,可以先启用:文件 → 选项 → 自定义功能区 → 勾选“开发工具”)

  2. 选择 DeleteBlankRowsAColumnOnly → 点击 运行




Pre: No Post

Next: Windows 只更改CMD提示环境为英文

1
Table of content