Makro til fjernelse af tomme kolonner

Det kunne se sådan her ud

Sub FjernTommeKolonner()
    Dim i As Integer
    For i = Range("A1").End(xlToRight).Column To 1 Step -1
        If Cells(1, i).End(xlDown).Row = ActiveSheet.Rows.Count Then
            Cells(1, i).EntireColumn.Delete
        End If
    Next
End Sub

Ovenstående virker under følgende antagelse:

Dine data starter i A1 med overskrift i første række og uden huller i overskriftrækken.

Tak! Løsningen virker umiddelbart efter hensigten.


Send gerne et "svar" så jeg kan tildele point.

Hilsen
Sebastian

Skønt