在VBA中查找函数 [英] Find Function in VBA

问题描述

我通过编写

开始了一个简单的演示

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

我希望Excel会自动选择一个包含值"abc"的单元格，但是，我收到了一条错误消息，说"对象变量或未设置挡路变量"(Object Variable Or With Sequoia Variable Not Set)。请问我错过了什么吗？

非常感谢。

推荐答案

"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

这篇关于在VBA中查找函数的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！