Как удалить полностью пустые столбцы в Excel на Mac

Question

Это основано на MAC-версии Excel 2017.

У меня есть таблица Excel со многими столбцами. Каждый столбец имеет заголовок. Я хотел бы знать, как удалить все полностью пустые столбцы в этой таблице.

Мое определение пустых столбцов: столбцы, в которых нет других записей, кроме заголовка

Answer 1

Это работает на Windows, попробуйте на вашем 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