如何在 Mac 上的 Excel 中删除完全空白的列

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