WPS表格如何一键批量删除所有工作表中的空行？

功能定位：为什么空行必须“跨表”一次性处理

在数据清理场景里，“空行”不只是视觉冗余，还会让透视表、公式引用、导出 CSV 多出一堆逗号，甚至导致 Power Query 误判数据边界。WPS 表格的“一键批量删除所有工作表中的空行”正是把“逐表→肉眼找空→手工删”这种高成本动作压缩成宏级自动化。核心关键词“批量删除空行”在 2026 版仍只能通过“宏+筛选”组合完成，官方尚未提供原生多表按钮，因此本文给出两条最短路径：零代码宏录制与 VBA 直写，兼顾新手与进阶。

版本与兼容性前提

经验性观察：截至当前最新版本（Win 桌面版 Win11+WPS 2026 春季更新、Mac 版 11.6 次级补丁）均内置“开发工具”选项卡，但 Mac 版宏编辑器对中文注释支持不完整，建议代码里保留英文注释。安卓与 iOS 移动端暂不支持宏，仅能用“筛选→删除可见行”手工单表处理，因此下文方案默认在桌面端完成。

路径速查：如何 30 秒内打开宏编辑器

Win 桌面最短路径

文件→选项→自定义功能区→右侧勾选“开发工具”→确定→返回主界面即可看到“开发工具”选项卡。

Mac 桌面最短路径

WPS 表格→偏好设置→功能区和工具栏→主选项卡→勾选“开发工具”→关闭偏好设置即可。

方案 A：零代码宏录制（适合 ≤5 张工作表、空行分布规律）

步骤拆解

1. 在首张工作表选中整列 A→数据→筛选→列头下拉勾选“空白”→此时仅空白行可见。
2. 开始→删除→删除工作表行→停止筛选。
3. 开发工具→录制宏→宏名“DelBlankRows”→快捷键 Ctrl+Shift+D→确定→重复 1-2 步→停止录制。
4. 依次激活其余工作表→按 Ctrl+Shift+D，即对当前表重放删除动作。

取舍与边界

录制宏把“可见行删除”写死，若空行不在整列 A 而在其他列，则失效；且当工作表数量>20 时，人工切换仍耗时。此时应改用方案 B 的循环代码。

方案 B：VBA 直写循环（一次性扫全簿，推荐）

完整代码与注释

Sub DelBlankRowsAllSheets()
    Dim sht As Worksheet, rng As Range, delRng As Range, lastRow As Long, i As Long
    Application.ScreenUpdating = False   '提速
    For Each sht In ThisWorkbook.Worksheets
        lastRow = sht.Cells(sht.Rows.Count, 1).End(xlUp).Row   '取 A 列最后行
        Set delRng = Nothing
        For i = lastRow To 1 Step -1      '倒序避免索引塌陷
            If Application.WorksheetFunction.CountA(sht.Rows(i)) = 0 Then
                If delRng Is Nothing Then
                    Set delRng = sht.Rows(i)
                Else
                    Set delRng = Union(delRng, sht.Rows(i))
                End If
            End If
        Next i
        If Not delRng Is Nothing Then delRng.Delete
    Next sht
    Application.ScreenUpdating = True
    MsgBox "空行清理完成", vbInformation
End Sub

使用场景示例

某电商财务簿共 38 张日报表，每张 2 万行，空行占比约 3%。在 i5-1240P/16G 笔记本上运行上述宏，经验性观察耗时约 40 秒，文件体积由 28.6 MB 降至 25.1 MB，后续透视刷新耗时缩短约四分之一。

性能与成本：何时不该用宏

当工作簿含图表、数据验证、跨表公式引用时，行删除会触发大量重算。若文件已出现“计算线程占用>4 核 75%”情形，建议先手动把公式复制为数值，或分批次（5 张表为一组）执行宏，避免假死。判断阈值：文件打开后状态栏显示“正在计算：8 线程”超过 15 秒，即属于高风险。

回退与验证：三步确保可逆

1. 运行宏前：文件→信息→版本管理→创建备份，WPS 会生成“文件名(备份1).xlsb”，误删后可一键还原。
2. 运行后：在新增空白列首行输入公式=COUNTBLANK(1:1)=COLUMNS(1:1)向下填充，TRUE 即全空行，可二次核对。
3. 若发现误删：Ctrl+Z 仅在单表有效，跨表宏无法撤销，此时直接关闭不保存，重新打开备份文件即可。

移动端补救方案

安卓/iOS 虽无宏，但可借助“共享到云→电脑端自动同步→云脚本执行”曲线完成：把文件放入 WPS 云根目录，在电脑端开启“云同步后自动宏”（需本地信任设置），手机上传后即可远程清理，再刷新手机端查看最新版本。

第三方机器人协同（可选）

若团队使用企业微信或飞书群，可部署“第三方归档机器人”监听群文件事件：当检测到带“_clean”后缀的表格上传时，自动调用本地 WPS 宏模板完成空行清理并回传。权限最小化原则：机器人账户仅授予“指定文件夹读写”，不开放全盘。

故障排查速查表

现象	可能原因	验证方法	处置
宏按钮灰色	宏被禁用	文件顶部是否出现“启用内容”黄条	点击启用或调信任中心
运行后 0 行被删	空行含空格公式	LEN(TRIM(A1))=0 是否 TRUE	改宏用 CountBlank 或 Trim 判断
文件体积反而变大	Excel2003 格式碎片	另存为 xlsx 后体积是否回落	转换格式后再次保存

适用/不适用场景清单

• 适用：日报、月报模板合并；空行随机分布；表结构一致；可接受宏安全警告。
• 不适用：受保护 sheet（需先取消保护）、共享工作簿（宏无法运行）、含横向合并单元格（删除后格式错位）、需要审计痕迹的合规场景（宏删除不留日志）。

最佳实践决策表

工作表数量≤5 且仅列 A 空→录制宏；数量>5 或空行散落多列→VBA 循环；文件>50 MB 或含复杂公式→先复制数值再运行；合规要求留痕→放弃宏，改用 Power Query 筛选“空白行”后加载到新簿。

FAQ（结构化数据，利于搜索引擎出富卡片）

收尾与下一步行动

批量删除空行的本质是把“肉眼扫描”转成“倒序循环+Union 范围”，在 WPS 表格里只需开启开发工具、植入一段 20 行 VBA 即可把耗时数小时的任务压到数十秒。下次收到“模板合并后体积暴涨”的求助，先检查空行，再按本文决策表选方案，运行前一键备份，运行后用 COUNTBLANK 二次验证，就能在性能与风险之间取得最优平衡。立即打开你手边最大的工作簿，按 Alt+F8 跑一遍示例宏，体验文件体积与刷新速度的双重瘦身。