軟體: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 為空白，則刪除該資料列(一整列)
謝謝大家!

[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

先謝謝c大，順利執行完，但資料欄A仍有空白列，如圖https://i.imgur.com/0pajnvF.png經過c大的提示，最後用以下兩行程式碼解決了問題：[a:a].AutoFilter Field:=1, Criteria1:="="[a:a].SpecialCells(xlCellTypeVisible).EntireRow.Delete多謝c大