Excel VBA宏开发：实现按钮切换隐藏/取消含Comments的指定行

原代码每次执行都会先取消所有行的隐藏，再重新隐藏目标行，因此无法实现切换效果。我们可以通过判断目标行当前的隐藏状态来决定执行隐藏还是取消隐藏操作，修改后的代码如下：

Sub ToggleCommentsRows()
    Dim rCheck As Range
    Dim targetCell As Range
    Dim shouldHide As Boolean
    
    ' 指定要检查的列范围
    Set rCheck = Range("B18:B8000")
    
    ' 先判断是否需要执行隐藏操作：检查第一行符合条件的单元格，看其行是否可见
    shouldHide = True
    For Each targetCell In rCheck.Cells
        If InStr(1, targetCell.Value, "Comments", vbTextCompare) > 0 Then
            shouldHide = targetCell.EntireRow.Visible
            Exit For
        End If
    Next targetCell
    
    ' 根据判断结果执行对应操作
    For Each targetCell In rCheck.Cells
        If InStr(1, targetCell.Value, "Comments", vbTextCompare) > 0 Then
            targetCell.EntireRow.Hidden = shouldHide
        End If
    Next targetCell
End Sub

代码逻辑说明 #

• 先遍历指定范围，找到第一个包含“Comments”的单元格，通过其行的可见状态判断本次操作方向：如果该行可见，说明需要隐藏；如果已经隐藏，说明需要取消隐藏。
• 再次遍历范围，对所有包含“Comments”的行设置对应的隐藏状态。
• 保留了不区分大小写的文本匹配（vbTextCompare），确保“comments”“COMMENTS”等变体都能被识别。

替换步骤 #

1. 打开Excel的VBA编辑器（按Alt + F11）。
2. 找到原来的HideRows宏，替换为上述代码，也可以直接将宏重命名为ToggleCommentsRows（名称更直观）。
3. 回到Excel界面，将按钮的绑定宏改为新的ToggleCommentsRows即可。

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