主页 / computer / 问题 / 1752493
Accepted
Madamadam
Asked: 2022-11-13 14:04:55 +0800 CST

隐藏可见单元格全部为空但在隐藏单元格中可能具有非空值的所有行

  • 772

我正在尝试编写一个 VBA 宏来隐藏可见单元格全部为空的行。这意味着，那些可见单元格全部为空但仍然具有非空值的隐藏单元格的行也应该被隐藏。

不幸的是，我正在使用的代码仅隐藏了没有具有非空值的隐藏单元格的行：

'==========================================
' Hide Empty Rows
'==========================================
Sub hideEmptyRows()
    ' Set variables
    Dim i As Integer
    Dim lngLastCell As Long
    ' Get last cell
    lngLastCell = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    ' Turn screen updating off
    Application.ScreenUpdating = False
    ' Loop from 3rd to last cell
    For i = 3 To lngLastCell
        ' Check if row has any values
        If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
            ' Hide row
            Rows(i).Hidden = True
        End If
    Next i
    ' turn screen updating on
    Application.ScreenUpdating = True
End Sub
microsoft-excel

1 个回答

  1. Best Answer

    像这样计算时，您可以使用带有xlCellTypeVisible参数的.SpecialCells() 方法：.CountA()

    If Application.WorksheetFunction.CountA(Rows(i).SpecialCells(xlCellTypeVisible)) = 0 Then
    • 1

相关问题