1、在Excel中打开VB代码编辑器
2、在【插入】-【模块】中编写代码。
Function InStrRev(str As String, findstr As String) InStrRev = VBA.InStrRev(str, findstr) End Function
3、excel中执行