VBA查找含DPD End的单元格时如何获取最右侧匹配项并解决代码报错

• 参数匹配错误：Find方法的LookIn参数用于指定搜索范围类型，可选值为xlValues、xlFormulas、xlComments等，你错误地把表示搜索方向的xlPrevious赋值给了LookIn参数，直接导致方法调用参数非法报错。
• 搜索逻辑缺失：默认Find方法从目标区域的首个单元格开始从左向右搜索，要获取最右侧的匹配单元格，需要明确指定搜索方向为从右向左，同时设置正确的搜索起点，才能保证第一个返回的匹配结果就是最靠右的目标单元格。
• 无容错处理：如果指定行内没有匹配的内容，b会被赋值为Nothing，直接访问b.Column会抛出空对象引用错误。

With ThisWorkbook.Worksheets(1).Rows(1)
    Dim b As Range
    ' 从最右侧向左搜索，匹配第一个以DPD End开头的单元格
    Set b = .Find(What:="DPD End*", _
                  LookIn:=xlValues, _
                  LookAt:=xlWhole, _
                  SearchDirection:=xlPrevious, _
                  After:=.Cells(1))
    ' 容错处理
    If Not b Is Nothing Then
        MsgBox "最右侧匹配单元格列号：" & b.Column
    Else
        MsgBox "未找到匹配内容"
    End If
End With

• What:="DPD End*"：匹配所有以DPD End开头的单元格内容，符合你要匹配按月命名的DPD End相关表头的需求
• LookIn:=xlValues：指定搜索单元格的显示值
• LookAt:=xlWhole：按整个单元格内容匹配，避免单元格内部分包含关键词的误匹配
• SearchDirection:=xlPrevious：指定搜索方向为从右向左，第一个匹配结果就是最靠右的目标单元格
• After:=.Cells(1)：指定搜索起点为行的第一个单元格，结合从右向左的搜索逻辑，会从行的最右侧单元格开始检索，覆盖整行所有内容

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