LibreOffice Calc 如何通过函数或宏删除函数生成的工作表空行

核心结论 #

LibreOffice Calc 的工作表函数仅能返回当前单元格的计算值，没有权限修改表格的行结构，因此你设想的在IF函数中直接实现删除行的逻辑是无法实现的。你可以通过无宏的常规操作解决这类需求，仅在需要频繁自动批量处理时才需要用到宏。

无需宏的推荐解决方案 #

• 方案1：使用FILTER函数直接生成无空行结果（适用于LibreOffice 7.0及以上版本）
  不需要先写IF生成空行再删除，直接用溢出函数一次性提取非空内容即可，示例公式：
  =FILTER(Sheet1.A:A; NOT(ISBLANK(Sheet1.A:A)))
  把公式输入到新工作表的起始单元格，会自动填充所有符合条件的非空行，不会产生多余空行。
• 方案2：筛选+复制移除空行（适用于所有版本）
  如果你已经用IF公式生成了带空行的内容，可以按以下步骤操作：
  1. 选中你要处理的整列数据
  2. 点击顶部菜单栏「数据」->「更多筛选」->「标准筛选」
  3. 筛选条件设置为：对应列 「不等于」，输入框留空，点击确定
  4. 选中筛选后所有可见的非空行，复制后粘贴到新的区域，即可得到无空行的内容

自动批量处理可使用宏 #

如果需要频繁批量处理这类空行，可以用宏实现一键操作，基础入门操作步骤：

1. 按Alt + F11打开LibreOffice Basic宏编辑器
2. 新建一个模块，粘贴以下示例代码：

Sub 删除当前表A列空行
    Dim oSheet As Object
    Dim oRange As Object
    oSheet = ThisComponent.CurrentController.ActiveSheet
    oRange = oSheet.getCellRangeByName("A:A")
    ' 创建筛选规则：保留A列非空的行
    Dim oFilterDescriptor As Object
    Dim oFilterField As New com.sun.star.sheet.TableFilterField
    oFilterField.Field = 0
    oFilterField.Operator = com.sun.star.sheet.FilterOperator.NOT_EMPTY
    oFilterDescriptor = oRange.createFilterDescriptor(True)
    oFilterDescriptor.setFilterFields(Array(oFilterField))
    oRange.filter(oFilterDescriptor)
End Sub

3. 保存后返回表格，按Alt + F8选中对应的宏名即可运行，操作前建议先备份文件避免数据丢失。

内容的提问来源于stack exchange，提问作者Els den Iep