[算表] 使用巨集刪除資料欄A為空白的整個資料列
軟體: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,
2年前
, 1F
05/10 12:36, 1F
→
05/10 14:13,
2年前
, 2F
05/10 14:13, 2F
→
05/10 14:13,
2年前
, 3F
05/10 14:13, 3F
→
05/10 15:41,
2年前
, 4F
05/10 15:41, 4F
→
05/10 15:41,
2年前
, 5F
05/10 15:41, 5F
→
05/10 15:41,
2年前
, 6F
05/10 15:41, 6F
→
05/10 15:42,
2年前
, 7F
05/10 15:42, 7F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
