Excel 表 使用VBA 隱藏不需要的列

最近需要處理 工作表 爲了提高效率 記下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