隐ÂæC

wqfzqgk

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "«ìÎ`" Then
        Cells.Columns.Hidden = False
        CommandButton1.Caption = "隐ÂÃ"
    Else
        CommandButton1.Caption = "«ìÎ`"
        col = ActiveSheet.UsedRange.Columns.Count
        rowss = ActiveSheet.UsedRange.Rows.Count
        For i = 2 To col
            If Application.WorksheetFunction.CountA(Range(Cells(4, i), Cells(rowss, i))) = 0 Then Columns(i).Hidden = True
        Next i
    End If
End Sub