Como Excluir Colunas Completamente Vazias no Excel em um Mac

Question

Isso é baseado na versão MAC do Excel 2017.

Eu tenho uma planilha do Excel com muitas colunas. Cada coluna tem um título. Gostaria de saber como excluir todas as colunas completamente vazias nesta planilha.

Minha definição de colunas em branco: colunas que não possuem outras entradas, exceto o título

    

Answer 1

Isso funciona no Windows, experimente no seu MAC:

Sub KolumnKiller()
    Dim N As Long, i As Long
    With Application.WorksheetFunction
        N = Cells(1, Columns.Count).End(xlToLeft).Column
        For i = N To 1 Step -1
            If .CountA(Columns(i)) < 2 Then Cells(1, i).EntireColumn.Delete
        Next i
    End With
End Sub