VB隐藏含红色单元格行报错：Compile error: Invalid outside procedure 求助

嘿，我来帮你搞定这个问题！你遇到的Compile error: Invalid outside procedure错误，主要是代码里有几个变量和逻辑的问题，我一步步给你拆解和修正：

你的代码里的问题点 #

1. 未声明且错误使用变量：你循环里用的是cell，但判断的时候却写了Rng.Interior.Color，而且Rng和rw都没声明就直接用了，这肯定会触发编译错误。
2. ListObject引用错误：ActiveSheet.ListObjects("Sheet2")是错的——ListObjects的参数是表格的名称，不是工作表的名字。如果你的表格在Sheet2工作表里，得先定位到Sheet2，再找它里面的表格。
3. 不必要的数组赋值：你把myArray声明为Variant，还用Set把Range对象赋值给它，其实完全没必要，直接遍历表格列的数据区域就好。
4. 行隐藏逻辑错误：你没把循环的cell和要隐藏的行关联起来，rw变量根本没定义，自然没法用。

修正后的代码 #

我给你调整了代码，加上注释方便你理解：

Sub AstInv()
    Dim myTable As ListObject
    Dim cell As Range ' 明确声明循环用到的单元格变量
    
    ' 正确引用Sheet2中的表格：把"Table1"改成你实际的表格名称
    Set myTable = ThisWorkbook.Worksheets("Sheet2").ListObjects("Table1")
    
    ' 遍历目标列的**数据区域**（自动跳过表头）
    For Each cell In myTable.ListColumns("Código de Barras2").DataBodyRange
        ' 判断当前单元格填充色是否为红色
        If cell.Interior.Color = vbRed Then
            ' 隐藏该单元格所在的整行
            cell.EntireRow.Hidden = True
        End If
    Next cell
End Sub

额外注意事项 #

• 确认表格名称：你可以在Excel里选中表格，然后看顶部「表格设计」选项卡中的表格名称，把代码里的"Table1"替换成这个名字。
• 切换隐藏状态：如果你需要实现「红色行隐藏，非红色行显示」的双向切换，可以把行隐藏那行改成：

  cell.EntireRow.Hidden = (cell.Interior.Color = vbRed)
  

• 开启强制变量声明：在VBA模块的最顶部加上Option Explicit，这样能强制你声明所有变量，避免类似的拼写或未定义变量错误，开发起来更省心。

内容的提问来源于stack exchange，提问作者Invictus