Excel-VBA Range.Find方法错误处理

Question

我正在使用range.find方法在第一行中找到具有特定值的单元格。 匹配时，代码可以正常工作。 如果没有匹配项，则代码将引发错误，如下面的屏幕快照所示。

我们需要为此方法进行错误处理吗？ 我以为它只会返回Null或Nothing。 谢谢您的帮助！

Answer 1

用这个。 如果您直接想返回一个空范围的列号，它将显示错误。

Sub findtest() 
dim c as long
dim rng as range
   Set rng = ActiveSheet.Rows("1:1").Find(What:="John Smith", _
        After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

    If Not rng Is Nothing Then c = rng.column : Debug.Print c
end sub