Excel VBA宏报错求助：隐藏V列含\的行（行数可变）

原代码问题 #

你写的循环部分语法完全错误，VBA里For Each循环不能和判断语句混在一起写，这才导致了编译错误。

简化版可用代码 #

给你写了最易懂的版本，新手也能直接用：

Sub HideRowsWithBackslash()
    Dim ws As Worksheet
    Dim cell As Range
    Dim lastRow As Long
    
    ' 选择要操作的工作表，改成你实际的表名
    Set ws = ThisWorkbook.Sheets("R filtered")
    
    ' 先把所有行恢复显示（可选，避免重复运行时状态乱）
    ws.Rows.Hidden = False
    
    ' 自动获取V列最后一行的行号，不用手动数
    lastRow = ws.Cells(ws.Rows.Count, "V").End(xlUp).Row
    
    ' 遍历V列所有有数据的单元格
    For Each cell In ws.Range("V1:V" & lastRow)
        ' 检查单元格里有没有反斜杠
        If InStr(cell.Value, "\") > 0 Then
            cell.EntireRow.Hidden = True ' 符合条件就隐藏该行
        End If
    Next cell
End Sub

代码说明 #

• Set ws = ...：指定要处理的工作表，把引号里的名字改成你实际的表名就行
• ws.Rows.Hidden = False：每次运行先取消所有行的隐藏，防止之前隐藏的行保留状态，不需要可以删掉这行
• lastRow = ...：自动找到V列最后一行数据的位置，不管数据行数怎么变都能用
• For Each cell In ...：逐个检查V列的每个单元格
• InStr(...)：判断单元格里是否包含反斜杠，返回大于0就说明有
• cell.EntireRow.Hidden = True：找到含反斜杠的单元格，就隐藏它所在的整行

怎么用 #

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 右键左边的工作簿名称，选「插入」→「模块」
3. 把上面的代码复制粘贴进去
4. 按F5运行，或者回到Excel里点「开发工具」→「宏」，选这个宏运行

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