วิธีการลบคอลัมน์ที่ว่างเปล่าโดยสิ้นเชิงใน Excel บน Mac

สิ่งนี้เป็นไปตามรุ่น MAC ของ Excel 2017

ฉันมีสเปรดชีต excel ที่มีหลายคอลัมน์ แต่ละคอลัมน์มีชื่อ ฉันต้องการทราบวิธีลบคอลัมน์ที่ว่างทั้งหมดในสเปรดชีตนี้

คำจำกัดความของฉันเกี่ยวกับคอลัมน์ว่าง:คอลัมน์ที่ไม่มีรายการอื่น ๆ ในพวกเขายกเว้นชื่อ

สิ่งนี้ใช้ได้กับ 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