最近需要处理 工作表 为了提高效率 记下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