Ausblenden von Spalten mit Spaltenüberschriften ohne Daten?

Question

Ich versuche, Spalten zu verbergen, die keine Daten enthalten, während diejenigen mit Daten angezeigt werden, selbst wenn nur ein Element in der Spalte vorhanden ist. Hier ist der Code Ich verwende:

Dim cl as Range 

For Each cl In Range("A2:U2") 
    If cl.Value = "" Then 
     cl.EntireColumn.Hidden = True 
    Else 
     cl.EntireColumn.Hidden = False 
    End If 
Next cl 

Dies funktioniert, aber ich muss A2 U2 zu lesen und versteckt die Säulen, auf der Grundlage dieser Reihe, darunter auch solche, die über Informationen zu tun. Müsste ich etwas wie xldown hinzufügen, um alles von diesem Punkt aus zu lesen, um festzustellen, ob es die Spalte verbergen sollte? Sehr geschätzt für die Hilfe!

Answer 1

einen Scheck hinzufügen für

If cl.end (xlDown).Row = ActiveSheet.Rows.Count 

Answer 2

einfach Ihre If Zustand

aus ersetzen

If cl.Value = "" Then 

zu

If Application.WorksheetFunction.CountA(Columns(cl.Column).EntireColumn) = 1 Then 

Dies sagt Ihnen, dass es nur einen Wert in der gesamten Spalte ist. In Ihrem Fall sollte es Header sein.

Es sollte so etwas wie folgt aussehen:

Sub demo() 
    Dim cl As Range 

    For Each cl In Range("A2:U2") 
     If Application.WorksheetFunction.CountA(Columns(cl.Column).EntireColumn) = 1 Then 
      cl.EntireColumn.Hidden = True 
     Else 
      cl.EntireColumn.Hidden = False 
     End If 
    Next cl 
End Sub