【教學】Excel VBA如何刪除空白列？超簡單馬上搞定！

excel vba 刪除空白列

將下方程式碼貼上到自己的巨集中，找出資料的最後一列，使用CountA計算該列中非空白儲存格的數量，如果該列完全空白就刪除，執行後即可

Sub 刪除空白列()
    Dim i As Long
    Dim 最後一列 As Long
    最後一列 = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 最後一列 To 1 Step -1
        If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
            Rows(i).Delete
        End If
    Next i
End Sub