VBA 运行时错误 424 : Object Required when trying to delete blank rows in a worksheet

Question

通过研究，我发现错误是由于无法识别对象引起的。我将范围设置为特定列，认为可能无法识别列(“E”)，但我仍然有同样的错误。我该如何解决这个错误，或者有没有更好的方法来删除工作表中的行？提前致谢。

这是程序:

Sub DeleteBlanks()

Dim rng As Range
Dim wb As Workbook

Set wb = Workbooks.Open("IPIC-DATA-2.xlsx")

ws = wb.Sheets("Sheet1").Activate

Set rng = Range("E:E")

ws.Columns(rng).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

wb.Close SaveChanges:=True

End Sub

Answer 1

你的语法有点不对劲。定义工作表并引用它。 rng已定义为范围(引用工作表)，因此不需要将其包裹在工作表或列中。

Sub DeleteBlanks()

Dim rng As Range
Dim wb As Workbook, ws As Worksheet

Set wb = Workbooks.Open("IPIC-DATA-2.xlsx")
Set ws = wb.Sheets("Sheet1")
Set rng = ws.Range("E:E")

On Error Resume Next 'avoid error if there are no blanks
rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

wb.Close SaveChanges:=True

End Sub