怎样使用VBA从右向左查找字符在字符中的位置？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Function FindR(n As Variant, a As String) As String  '从右向左查找

    FindR=WorksheetFunction.Find(n, VBA.StrReverse(a))
End Function

5、如图所示之数据，若用Find查找“人”的排序，结果应为3；而本工具从右开始查找，则在单元格B1中输入公式“=FindR("人",A1)”，结果为5