用于根据某些单元格条件在excel中隐藏取消隐藏列的宏。

Sub HideColumnsBasedOnCondition()
    Dim lastRow As Long
    Dim conditionRange As Range
    Dim cell As Range
    
    ' 设置条件范围，这里假设条件在A1:A10单元格中
    Set conditionRange = Range("A1:A10")
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每一列
    For Each cell In conditionRange
        ' 判断条件是否满足
        If cell.Value = "条件值" Then
            ' 隐藏列
            Columns(cell.Column).Hidden = True
        Else
            ' 取消隐藏列
            Columns(cell.Column).Hidden = False
        End If
    Next cell
End Sub