Excel 如果不适用，则删除行或仅选择不适用的行'；不适用

我正在VBA中构建一个宏来执行许多不同的功能，其中之一是将数据从不同的电子表格复制到报表中。提供数据的主电子表格包含所有客户的数据，我使用VLOOKUP，然后导入与该客户相关的所有数据。有没有办法：

1） 向下查找第一个

#N/a

项目的列，并选择其上方的所有数据（拉取第一个

#N/a

的行号将非常有用，并使第二个项目变得简单

2） 删除行is column

U

is#N/A-我发现这个问题是循环非常大，需要很长时间，我使用了类似于下面的链接

这个速度够快吗？？：

Sub Macro1()
    Dim N As Long, rFilter As Range
    N = Cells(Rows.Count, "U").End(xlUp).Row
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        Set rFilter = Range("U1:U" & N)
        Set rr = Range("U2:U" & N)
        rFilter.AutoFilter Field:=1, Criteria1:="#N/A"
        Set rkill = rr.Cells.SpecialCells(xlCellTypeVisible)
        rkill.EntireRow.Delete
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    rFilter(1).AutoFilter
End Sub

---

将让您开始。您不能按VBA中的不等于

#N/A

进行筛选？如有疑问，请记录一个宏；）