在表数组上的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

---

请注意，您正在搜索具有等号且没有其他内容的单元格。