根据列中的 2 个变量隐藏行

Question

卓越。请参阅我所附的图片。

我想根据列颜色隐藏行，然后如果列单元格为空，则隐藏该行。

我的列是 20，行 14 +。要检查的颜色是 217,217,217

因此，T 列中没有值的任何灰色行都会被隐藏。

我使用另一个 VBA 执行此操作，但它只有一个变量（零），以及我在此处找到的脚本。它会解锁工作表，然后在完成后重新锁定它，这是我添加的。我不知道如何在一个脚本中处理颜色和空白变量。我是一名架构师，不是编码员，但我有所涉猎。感谢您的帮助。

找不到如何搜索列中的两个变量，然后搜索满足这两个变量的隐藏行的示例。我只是一个复制粘贴、稍微编辑的人。

下面我的其他隐藏行为 0 的代码并不是试图执行我当前的要求，但对于不同的变量来说是类似的。此页面不允许我粘贴此代码，说格式不正确。好吧，它在我的 Excel 中有效，所以我不知道为什么。这是它的图像。

另一种隐藏的代码，但不同

Answer 1

根据所附代码，进行这样的修改（声明变量是一个很好的做法）：

Sub RowsLine_Blank_Hide()
   ' Unprotect worksheet with password
    ActiveSheet.Unprotect "w"
   ' declare variables
    Dim BeginRow As Long, EndRow As Long, ChkCol As Long, RowCnt As Long
    BeginRow = 14
    EndRow = 150
    ChkCol = 20
    For RowCnt = BeginRow To EndRow
        With Cells(RowCnt, ChkCol)
            .EntireRow.Hidden = .Value = Empty And .Interior.Color = RGB(217, 217, 217)
        End With
    Next RowCnt
  ' Reprotect the worksheet with password
    ActiveSheet.Protect "w"
End Sub