EXCEL <em>VBA</em>显示隐藏列-excel隐藏列 vba,excel的vba怎么

Private Sub CommandButton1_Click()
For i = 2 To 26
If Cells(5, i) = "" Then Cells(1, i).EntireColumn.Hidden = True
Next
End Sub

Sub text()
Dim t%, i%
t = [a2:as2].Columns.Count
For i = 1 To t
 If Cells(2, i) > 5 Then
 Cells(1, i).EntireColumn.Hidden = True
 End If
Next
End Sub