按CBool​​列隐藏，不起作用

Question

Does anybody know, why this code isn't polite and hiding my columns by unknown rule?

Sub EmptyCol()
Call UnlockS

Dim Table As Range:     Set Table = Range("O_List")
Dim Col As Range
Dim Emp As Boolean

Dim c As Long
'Table.Columns.hide = False
With Table
    For c = 4 To .Columns.Count
    Set Col = .Columns(c)
        If (Application.CountIf(Col, "")) = (.Rows.Count) Then Emp = True
        .Columns(c).EntireColumn.Hidden = CBool(Emp)

    Next c
End With

Call L_ORDER
End Sub

v1

    for c = 1 to .columns.count
        .columns(c).entirecolumn.hidden = not cbool(application.counta(.columns(c)))

Its edited code from my previous post, but now I know that isn't working. It hides also not blank colums. Thx for your help.

Answer 1

Sub EmptyCol()
    Call UnlockS

    Dim Table As Range:     Set Table = Range("O_List")
    Dim Col As Range
    Dim Emp As Boolean

    Dim c As Long
    Table.Columns.Hidden = False
    With Table
        For c = 4 To .Columns.Count
            .Columns(c).EntireColumn.Hidden = _
                        (Application.CountA(.Columns(c)) = 0)
         Next c
    End With

    Call L_ORDER
End Sub

Answer 2

I don't see where you set Emp back to false. Once it finds a positive result for the if, it's going to hide every column from that point forward.