Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 隐藏透视表下的不确定空白行_Excel_Vba_Pivot Table - Fatal编程技术网

Excel 隐藏透视表下的不确定空白行

Excel 隐藏透视表下的不确定空白行,excel,vba,pivot-table,Excel,Vba,Pivot Table,我又来了,这是另一个我在任何地方都找不到的简单函数。 相反,我看到了其他相关的讨论/代码,但它们比我需要它的方式更复杂 我有三个数据透视表,它们通过切片器连接,因此当我选择一个项目时,所有数据透视表都将在同一个参数中过滤 我只想隐藏两个空白表之间的空白行,不包括1行,以便查看分离。我尝试使用录制宏,但当我使用xlUp和xlDown时,似乎无法指望相对参考模式对此有所帮助。 所附图像是隐藏的空白行的样本。 提前非常感谢 我真的很抱歉,先生,我不是故意这么说的。只是没注意到。谢谢你的注意。 Sub

我又来了,这是另一个我在任何地方都找不到的简单函数。 相反,我看到了其他相关的讨论/代码,但它们比我需要它的方式更复杂

我有三个数据透视表,它们通过切片器连接,因此当我选择一个项目时,所有数据透视表都将在同一个参数中过滤

<>我只想隐藏两个空白表之间的空白行,不包括1行,以便查看分离。我尝试使用录制宏,但当我使用
xlUp
xlDown
时,似乎无法指望相对参考模式对此有所帮助。 所附图像是隐藏的空白行的样本。

提前非常感谢


我真的很抱歉,先生,我不是故意这么说的。只是没注意到。谢谢你的注意。
Sub HideBlanks()
    Dim nRow
    ' First, show all rows
    Cells.EntireRow.Hidden = False
    ' Then go from the last row to the third one,
    For nRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row To 3 Step -1
        ' check that several columns of that row are blank (Cells(nRow, 1) = "" And Cells(nRow, 2) = "" And Cells(nRow, 3) = "" )
        ' and also check that the row above is blank also (And Cells(nRow - 1, 1) )
        If Cells(nRow, 1) = "" And Cells(nRow, 2) = "" And Cells(nRow, 3) = "" And Cells(nRow - 1, 1) = "" Then
            ' If so, hide the row
            Cells(nRow, 1).EntireRow.Hidden = True
        End If
    Next nRow
End Sub