时间戳

首页 > 解决方案 > 使用 Excel VBA 从单元格区域中隐藏空行的最快方法

excel - 使用 Excel VBA 从单元格区域中隐藏空行的最快方法

问题描述

如果单元格范围为空，我有此代码来隐藏整行。它工作正常，但问题是，显示结果需要很长时间。

这是我的代码：

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim xRg As Range
    For Each xRg In Range("D22:D728")
        If xRg.Value = "" Then
            xRg.EntireRow.Hidden = True
     
        Else
            xRg.EntireRow.Hidden = False
        End If
    Next xRg
End Sub

标签： excelvba

解决方案

尝试这个..

Range("D22:D728").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

推荐阅读