我想我需要一個循環函數,但我不知道如何去做。VBA如果單元格空白,刪除行,如果沒有單元格空白,結束序列
此任務是查看特定列是否爲空,然後刪除該行。但是有時候沒有空白的單元格,我得到一個最終的調試錯誤。
這裏是我的代碼:
Sub DeleteRow()
Dim lr As Long
Dim shCurrentWeek As Worksheet
Set shCurrentWeek = AciveWorkbook.Sheets("Current Week")
lr = shCurrentWeek.Range("A" & Rows.Count).End(xlUp).Row
'Delete Row
shCurrentWeek.Range("B4:B" & lr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
什麼想法?
否,On Error Resume Next是快速和骯髒的解決方案。當你只是想讓它現在能夠工作,並且不想花時間或沒有時間,就可以完全避免這種錯誤。這就是說,這當然可以用於+1。 –