使用公式或VBA

以下是Excel中自动隐藏空白行的几种方法，供您根据需求选择合适的方式：

一、使用公式法（适用于静态数据）

1. 辅助列判断

   在数据列（如B列）输入公式判断行是否全为空白或零值。例如，在B3单元格输入：

   =COUNTIF(J3:Z3,0)=COUNTA(J3:Z3)
   

   若公式返回TRUE，则表示该行全为0或空白，需隐藏该行。

2. 条件格式化辅助

   • 选中数据区域，按Ctrl+1打开格式设置对话框；

   • 切换到“条件格式” -> “新建规则”；

   • 设置“使用公式确定要设置格式的单元格”，输入上述公式；

   • 设置格式为“隐藏”。

二、使用VBA宏（适用于动态数据）

1. 基础代码

   下面是一个简单的VBA宏，用于隐藏所有空白行：

   Sub HideEmptyRows()
       Dim ws As Worksheet
       Dim lastRow As Long
       Dim i As Long
       Set ws = ActiveSheet
       lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
       For i = 1 To lastRow
           If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
               ws.Rows(i).Hidden = True
           End If
       Next i
   End Sub
   

   • 按Alt+F11打开VBA编辑器，插入新模块，粘贴代码并运行。

2. 扩展功能（隐藏空白列）

   若需同时隐藏空白行和列，可扩展代码如下：

   Sub HideEmptyRowsAndColumns()
       Dim ws As Worksheet
       Dim lastRow As Long, lastCol As Long
       Dim i As Long, j As Long
       Set ws = ActiveSheet
       lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
       lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
       ' 隐藏空白行
       For i = 1 To lastRow
           If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
               ws.Rows(i).Hidden = True
           End If
       Next i
       ' 隐藏空白列
       For j = 1 To lastCol
           If Application.WorksheetFunction.CountA(ws.Columns(j)) = 0 Then
               ws.Columns(j).Hidden = True
           End If
       Next j
   End Sub
   

   • 该代码会同时检查行和列的空白情况。

三、使用筛选功能（临时解决方案）

1. 筛选空白行

   • 选中数据区域，点击“数据”选项卡 -> “筛选”；

   • 在列标题旁点击筛选箭头，取消勾选“空白”选项；

   • 点击“确定”即可隐藏空白行。

注意 ：筛选功能仅适用于临时查看，数据恢复后空白行会重新显示，且无法直接通过筛选隐藏行。

四、注意事项

• 数据备份 ：操作前建议备份文件，防止误操作；

• 宏安全 ：启用宏功能需谨慎，仅运行可信来源的宏；

• 复杂场景 ：若需根据多个条件判断（如特定列值），可结合IF函数与COUNTIF函数优化公式。

以上方法可根据数据特性和需求灵活选择，公式法适合静态数据，VBA适合动态或批量处理，筛选功能适合快速临时查看。