VBA在表数组上查找函数

Question

我正在尝试删除表列数组中不包含特定字符的行。数组加载数据就好了，但是当我尝试使用Find函数设置“x”时，我得到了“Object Required”，这让我很难受。

我确信这很简单，但我遇到的每一个解决方案都没有结果。

        srchRng = Range("OS[OS Version]")
        Set x = srchRng.Find(What:="=", LookAt:=xlWhole, LookIn:=xlValues)
        If x Is Nothing Then x.EntireRow.Delete

Answer 1

我认为你的If语句是落后的。试试这个：

If Not (x Is Nothing) Then x.EntireRow.Delete

Answer 2

经过测试 - 将其置于With块中，如下所示：

With Worksheets(1).Range("OS[OS Version]")
    Set x = .Find(What:="=", LookAt:=xlWhole, LookIn:=xlValues)
    If Not x Is Nothing Then x.EntireRow.Delete
End With

---

请注意，您正在搜索具有等号的单元格。