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