ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

隐ÂæC

隐ÂæC

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
学习

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD