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