PTT數位生活區 / Office

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

看板Office作者時間1年前 (2023/05/10 12:10), 編輯推噓1(1推 0噓 6→)
留言7則, 2人參與, 1年前最新討論串1/1
軟體: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
推
05/10 12:36, 1年前 , 1F
[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
05/10 12:36, 1F
→
05/10 14:13, 1年前 , 2F
先謝謝c大，順利執行完，但資料欄A仍有空白列，如圖
05/10 14:13, 2F
→
05/10 14:13, 1年前 , 3F
05/10 14:13, 3F
→
05/10 15:41, 1年前 , 4F
經過c大的提示，最後用以下兩行程式碼解決了問題：
05/10 15:41, 4F
→
05/10 15:41, 1年前 , 5F
[a:a].AutoFilter Field:=1, Criteria1:="="
05/10 15:41, 5F
→
05/10 15:41, 1年前 , 6F
[a:a].SpecialCells(xlCellTypeVisible).EntireRow.Delete
05/10 15:41, 6F
→
05/10 15:42, 1年前 , 7F
多謝c大
05/10 15:42, 7F
‣ 更多 jaycs 的文章
文章代碼(AID): #1aMnaSpw (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 jaycs 的文章
文章代碼(AID): #1aMnaSpw (Office)