excel - 自动过滤然后选择特定单元格下方的范围并选择可见单元格并删除整行

Question

*我一直在尝试编写此代码，但是当我运行代码时，它会在行中显示应用程序定义或对象定义的错误

ActiveSheet.Range(Rng).SpecialCells(xlCellTypeVisible).Select

请帮助解决我犯的错误

Dim xLastRow As Long
Dim xLstRw As Long
Dim Rng2 As Range, Rng As Range
Set xLstRw = Cells(Row.Count, "B").End(xlUp).Row
Set Rng2 = Range("J7")
Set Rng = Rng2.Offset(1, xLstRw)
Application.DisplayAlerts = False

Sheets(Worksheets("Home").Range("I10").Value).Activate
Range("A:A").EntireColumn.Insert
With Application.ActiveSheet
xLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
Range("A7:A" & xLastRow).Value = Worksheets("Home").Range("I9").Value
Range("A7").EntireRow.Insert
ActiveSheet.Range("A7:T" & xLastRow).AutoFilter Field:=10, Criteria1:="="
ActiveSheet.Range(Rng).SpecialCells(xlCellTypeVisible).EntireRow.Delete

标签： excelvba