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

时间：2026-05-01 05:02:26

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

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

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

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

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

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

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

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

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

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

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