[算表] 使用巨集刪除資料欄A為空白的整個資料列

[jaycs ()]

軟體:MS Excel

版本:2016
如題，想要刪除資料欄 A 為空白的該資料列 (整列都要刪除)
資料欄A 的列數不固定
透過網路找到兩個巨集

Sub DeleteBlankRows() '可刪除整列空的資料列,確實可用
    Dim rng As Range
    Dim i As Long

    Set rng = ActiveSheet.UsedRange

    For i = rng.Rows.Count To 1 Step -1
        If WorksheetFunction.CountA(rng.Rows(i)) = 0 Then
            rng.Rows(i).EntireRow.Delete
        End If
    Next i
End Sub


Sub DeleteRowsWithBlankCellsInA()  '這個還沒試,因為它要事先設定範圍
'據說特色是執行速度很快
'以下這兩句要拼在同一行才是完整指令
        Worksheets("Sheet1").Range("A17:A1000").
                                SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

該如何修改才能達到我的目標：如果資料欄 A 為空白，則刪除該資料列(一整列)

謝謝大家!

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.126.1 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1683691804.A.CFA.html
推 cutekid: [a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
→ jaycs: 先謝謝c大，順利執行完，但資料欄A仍有空白列，如圖
→ jaycs: https://i.imgur.com/0pajnvF.png
→ jaycs: 經過c大的提示，最後用以下兩行程式碼解決了問題：
→ jaycs: [a:a].AutoFilter Field:=1, Criteria1:="="
→ jaycs: [a:a].SpecialCells(xlCellTypeVisible).EntireRow.Delete
→ jaycs: 多謝c大