Excel 一键删除间隔的空白行，方便数据筛选功能 - 全文内容：
显示技术博客列表Excel 一键删除间隔的空白行，方便数据筛选功能
超短链接1️⃣ 打开 VBA 编辑器
打开 Excel 2024。
按 Alt + F11 → 进入 VBA 编辑器。
在左侧的 “工程资源管理器” 找到你当前工作簿（例如
VBAProject (Book1)）。- 或者点击VB打开：
2️⃣ 插入模块
在左侧工程上右键 → 插入 → 模块。
会生成一个新的模块（例如
Module1）。你可以在右侧窗口里写 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 Sub4️⃣ 运行宏
方法一：直接在 VBA 编辑器运行
光标放在宏里面 → 按 F5 → 运行。
方法二：在 Excel 里运行
Excel 菜单 → 开发工具 → 宏（如果没显示开发工具选项卡，可以先启用：文件 → 选项 → 自定义功能区 → 勾选“开发工具”）
选择
DeleteBlankRowsAColumnOnly→ 点击 运行
