求助：如何修改VBA代码仅隐藏0值行而非空行？

原代码的问题在于默认标记所有无正值的行需要隐藏，这包括了空行（所有单元格为空时，不会触发>0的判断，hide保持为True）。要实现仅隐藏包含0值的行、保留空行的需求，需要调整逻辑：区分空行和含0的行，只有当行内存在0值且没有正值时才隐藏。

修改后的代码如下：

Sub HideRows()
    Dim i As Long
    Dim j As Long
    Dim hasZero As Boolean
    Dim hasPositive As Boolean
    
    ' 遍历目标行范围
    For i = 32 To 262
        hasZero = False
        hasPositive = False
        
        ' 遍历行内B到AF列（对应列号4到41）
        For j = 4 To 41
            ' 先检查是否有正值，有则直接跳过该行后续判断
            If Cells(i, j).Value > 0 Then
                hasPositive = True
                Exit For
            End If
            
            ' 检查是否存在0值
            If Cells(i, j).Value = 0 Then
                hasZero = True
            End If
        Next j
        
        ' 仅当无正值但有0值时，隐藏该行
        Rows(i).Hidden = (Not hasPositive) And hasZero
    Next i
End Sub

逻辑说明 #

1. 新增两个状态变量hasZero和hasPositive，分别标记行内是否存在0值和正值
2. 遍历单元格时，优先判断是否有正值：一旦找到正值，直接标记hasPositive=True并退出循环（因为有正值的行无论如何都不隐藏）
3. 若没有正值，再检查是否存在0值：存在则标记hasZero=True
4. 最后判断：只有当行内没有正值且有0值时，才隐藏该行；空行因hasZero=False会被保留

内容的提问来源于stack exchange，提问作者Te Tel