隐藏没有价值的行

我正在尝试隐藏不具有值VBA的行的解决scheme

代码（不适用于我）：

Dim rowRange As Range BeginRow = 2 'Start after Master Menu item EndRow = 252 'Filter all rows in sheet (about 730) ColumnsWithValues = 0 'Counter for number of columns in a row that have a value. If 0, hide the row. ColumnStart = 2 'Start where you have group values ColumnEnd = 9 'Maximum number of groups RowNumber = 0 ColumnNumber = 0 For RowNumber = BeginRow To EndRow Set rowRange = Range(Cells(RowNumber, ColumnStart), Cells(RowNumber, ColumnEnd)).SpecialCells(xlCellTypeVisible) If Application.WorksheetFunction.CountA(rowRange) = 0 Then rowRange.EntireRow.Hidden = True End If 'Repeat for all rows Next RowNumber End Sub 

我的工作簿

给出错误104; 找不到细胞。

我在哪里犯错？

Answer 1

如果找不到匹配的单元格， SpecialCells会引发错误 – 您可以忽略使用On Error Resume Next ，然后testing是否设置了rowRange ：

  Dim rowRange As Range BeginRow = 2 'Start after Master Menu item EndRow = 252 'Filter all rows in sheet (about 730) ColumnsWithValues = 0 'Counter for number of columns in a row 'that have a value. If 0, hide the row. ColumnStart = 2 'Start where you have group values ColumnEnd = 9 'Maximum number of groups RowNumber = 0 ColumnNumber = 0 For RowNumber = BeginRow To EndRow Set rowRange = Nothing On Error Resume Next Set rowRange = Range(Cells(RowNumber, ColumnStart), _ Cells(RowNumber, ColumnEnd)).SpecialCells(xlCellTypeVisible) On Error Goto 0 If Not rowRange Is Nothing Then If Application.WorksheetFunction.CountA(rowRange) = 0 Then rowRange.EntireRow.Hidden = True End If End If 'Repeat for all rows Next RowNumber End Sub