在VBA中查找功能

Question

我通过编写一个简单的演示

Sub search()
Range("B1:B7").Find("abc").Activate
End Sub

我希望excel将自动选择其中包含值“ abc”的单元格，但是，我收到一条错误消息，提示“对象变量或未设置块变量”。 我想念一切吗

欣赏它。

Answer 1

“ https://msdn.microsoft.com/en-us/library/office/ff839746.aspx”

    Sub tester()
    With Worksheets(6).Range("B1:B500")
        Set c = .Find("Smith Jon Junior", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address ' not required
            c.Activate
        else
            msgbox ("Not Found")
        End If
    End With
End Sub