如何根据列名条件隐藏Excel工作表中的列

Question

我有一个Excel工作簿，其中有多个工作表。我想隐藏所有工作表中的一些列，其中标题以字符串"AUDIT_"开头。

我正在尝试找出一个简单的解决方案来隐藏所有工作表中的这些列，这样我就不需要去每张工作表并点击隐藏。

你能否就此提出建议。

Answer 1

尝试一下：

Sub ColumnHider()
    Dim s As Worksheet, N As Long, i As Long
    For Each s In Worksheets
        s.Activate
        N = Cells(1, Columns.Count).End(xlToLeft).Column
        For i = 1 To N
            If Left(Cells(1, i).Value, 6) = "AUDIT_" Then
                Cells(1, i).EntireColumn.Hidden = True
            End If
        Next i
    Next s
End Sub