Mac版Excel VBA：基于指定行范围值控制列显隐的问题

你的代码逻辑问题在于：循环处理修改的单元格时，只要遇到一个非2的值就会隐藏U列，完全忽略了I13:I20范围内其他单元格可能仍存在2的情况。正确的逻辑应该是先检查整个目标范围是否存在2，再统一控制U列的显示状态，而不是逐个处理单个修改的单元格。

修改后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RangeOfInterest As Range
    Dim TargetRangeOfInterest As Range
    Dim hasValue2 As Boolean
    Dim SearchValue As Variant
    
    SearchValue = 2
    Set RangeOfInterest = Me.Range("I13:I20")
    
    ' 只在修改的单元格属于目标范围时执行逻辑
    Set TargetRangeOfInterest = Application.Intersect(RangeOfInterest, Target)
    If Not TargetRangeOfInterest Is Nothing Then
        ' 检查整个范围是否存在值2
        hasValue2 = (WorksheetFunction.CountIf(RangeOfInterest, SearchValue) > 0)
        
        With Me.Columns("U").EntireColumn
            ' 仅当状态需要改变时才执行写入操作，提升效率
            If hasValue2 <> Not .Hidden Then
                .Hidden = Not hasValue2
            End If
        End With
    End If
End Sub

关键改动说明： #

• 改用WorksheetFunction.CountIf统计I13:I20中值2的数量，只要数量大于0就判定存在2
• 直接根据hasValue2的结果统一设置U列的隐藏状态，避免单个单元格判断导致的逻辑错误
• 保留了"仅在状态不一致时修改"的优化，减少Excel的写入操作，提升响应速度
• 将宏名改为Worksheet_Change，这是Excel内置的工作表事件宏，无需手动调用，只要修改指定范围单元格就会自动触发

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