刪除使用宏空行，行X

我發現在另一個帖子此宏後：刪除使用宏空行，行X

Sub DelBlankRows() 

Columns("A:A").Select 
Selection.SpecialCells(xlCellTypeBlanks).Select 
Selection.EntireRow.Delete 

End Sub

可以這樣修改，使得它僅x行（行14電子表格後刪除行，我目前正在研究）？

謝謝！

來源

2014-10-28 Alex S

這是相當簡單的。

Rows(x & ":" & y).EntireRow.Delete

只需交換所需行的x和y即可。

另外，最好避免不必要地選擇範圍，因爲它只會減慢速度。任何時候你選擇一個範圍，然後對選擇做一些事情，你可以直接在範圍上直接執行那個動作。

編輯：只是重新讀取的問題 - 那麼試試這個：

Range("A14:A" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

來源

2014-10-28 11:22:58 Dave

爲了澄清，我應該更換 Selection.EntireRow.Delete 與行（X＆「：」＆ y）.EntireRow.Delete ？在刪除範圍內的所有行時，列A中的單元格是否爲空。當列A中的單元格爲空時，我只需要刪除該行。 – 2014-10-28 11:31:55

我猜編輯解決了這個問題，你能否確認我正在替換哪些代碼部分？ – 2014-10-28 11:35:53

爲了讀者的利益，對於VBA和我一樣沒有經驗的人，完整的宏是：Sub DelBlankRows（）範圍（「A14：A」＆Cells.SpecialCells（xlCellTypeLastCell）.Row）.SpecialCells（xlCellTypeBlanks）.EntireRow 。刪除 End Sub – 2014-10-28 11:39:46

刪除使用宏空行，行X

回答

相關問題