作者jaycs ()
看板Office
標題[算表] 使用巨集刪除資料欄A為空白的整個資料列
時間Wed May 10 12:10:02 2023
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1683691804.A.CFA.html
1F：推 cutekid: [a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete 05/10 12:36
2F：→ jaycs: 先謝謝c大，順利執行完，但資料欄A仍有空白列，如圖 05/10 14:13
4F：→ jaycs: 經過c大的提示，最後用以下兩行程式碼解決了問題： 05/10 15:41
5F：→ jaycs: [a:a].AutoFilter Field:=1, Criteria1:="=" 05/10 15:41
6F：→ jaycs: [a:a].SpecialCells(xlCellTypeVisible).EntireRow.Delete 05/10 15:41
7F：→ jaycs: 多謝c大 05/10 15:42