在VBA中如何正确使用Find方法的after参数？

你遇到的这个问题，核心原因几乎肯定是after参数的传入类型不符合要求——Excel的Range.Find方法对这个参数有严格的类型限制，它必须接收一个单个单元格的Range对象，而不是坐标数组、地址字符串这类其他类型。

常见错误写法（触发类型不匹配） #

比如你可能尝试了这两种错误用法：

' 错误：传入坐标数组，不是Range对象
Range("A:A").Find(What:="指定关键字", After:=(14,1))

或者：

' 错误：传入地址字符串，不是Range对象
Range("A:A").Find(What:="指定关键字", After:="A14")

正确的用法示例 #

你需要把after参数明确指定为Range对象，比如基于你第一次找到的A14单元格继续查找，可以这样写：

' 先执行第一次查找，获取结果单元格
Dim firstMatch As Range
Set firstMatch = Range("A:A").Find(What:="指定关键字")

' 基于第一次结果，用after参数继续查找（应对未来可能的重复）
Dim nextMatch As Range
Set nextMatch = Range("A:A").Find(What:="指定关键字", After:=firstMatch)

如果是想从某个特定单元格之后开始查找，直接传入对应的Range对象即可：

' 从A14之后开始查找
Set nextMatch = Range("A:A").Find(What:="指定关键字", After:=Range("A14"))

额外优化建议 #

为了避免默认参数带来的意外，建议给Find方法补充更多明确参数，比如：

Set firstMatch = Range("A:A").Find( _
    What:="指定关键字", _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlNext _
)

内容的提问来源于stack exchange，提问作者Maury Markowitz