最近需要处理 工作表 为了提高效率 记下vba 隐藏列的方法

在底部sheet tab 右键 选view code 或者 Alt+F11 打开代码界面

Sub filter()

    Dim i

    Dim title As String

    j = UsedRange.Rows.Count

    For i = 1 To UsedRange.Columns.Count '遍历的列数

        title = Cells(1, i)'遍历第一行的每一列

        If ( _

        title "Number" And _ '第i列 第一行不是Number 并且

        title "Date" And _ '第i列 第一行不是Data

         ) Then

        Columns(i).Hidden = True '隐藏这一列

        End If

    Next

End Sub