vbscript 通过VBScript有条件地在Excel中隐藏列

Posted 2021-05-22

Sub header()

Dim eCol As Integer
Dim i As Integer

eCol = Cells(1, Columns.Count).End(xlToLeft).Column

For i = 1 To eCol

With Cells(1, i)

If IsDate(.Value) Then
If (Weekday(.Value) = vbSunday) Or _
(Weekday(.Value) = vbSaturday) Then
.EntireColumn.Hidden = True
End If
End If

End With

Next i

End Sub