如何使用/ filter修复调试错误，删除可见行

Question

我有代码过滤掉第一列中有空格的行，然后删除可见行。但是在代码运行时会收到调试错误。

1：

Apply Filter
Worksheets("RDI Capacity Report").Range("A1:I3000").AutoFilter Field:=1, 
Criteria1:=""

2：

Delete Rows
Application.DisplayAlerts = False
Worksheets("RDI Capacity Report").SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

3：

Clear Filter
On Error Resume Next
SourceWkSt.ShowAllData
On Error GoTo 0

我希望代码删除第一列中所有空白的行。

Answer 1

我知道了。我的语法错误我忘记在delete stmt中包含范围。 '2。删除行   Application.DisplayAlerts = False     'SourceWkSt.Range（“ A2：I3000”）。SpecialCells（xlCellTypeVisible）.Delete     工作表（“ RDI容量报告”）。范围（“ A2：I3000”）。SpecialCells（xlCellTypeVisible）。删除   Application.DisplayAlerts = True