Vba 从后面的单词计数中获取第一个给定符号

我是VBA的初学者，需要一些学校作业方面的帮助

Function CountfromBack(tekst As String, sümbol As String) As Integer
    CountfromBack = 0
    lengthie = Len(tekst)
    For i = 1 To lengthie
        s = Mid((tekst), i, 1)
        If s = sümbol Then
            CountfromBack = i
            Exit For
        End If
    Next i
    CountfromBack = (lengthie - CountfromBack + 1)
    End Function

下面是该函数当前的功能。对于B9中的文本和符号“e”，它给出了答案6，但它应该是1，考虑到我正在寻找从后面读取的第一个给定符号。另外，如果符号不在单元格中，我应该如何返回0

---

从最后一个字母到第一个字母重复：

Function CountfromBack(tekst As String, sümbol As String) As Integer
    Dim lengthie as Long, i as Long, s as String
    CountfromBack = 0
    lengthie = Len(tekst)
    For i = lengthie To 1 Step -1
        s = Mid((tekst), i, 1)
        If s = sümbol Then
            CountfromBack = lengthie - i + 1
            Exit Function
        End If
    Next i

End Function

---

从最后一个字母到第一个字母重复：

Function CountfromBack(tekst As String, sümbol As String) As Integer
    Dim lengthie as Long, i as Long, s as String
    CountfromBack = 0
    lengthie = Len(tekst)
    For i = lengthie To 1 Step -1
        s = Mid((tekst), i, 1)
        If s = sümbol Then
            CountfromBack = lengthie - i + 1
            Exit Function
        End If
    Next i

End Function

---

您可以使用VBA函数来完成以下工作：

Function CountfromBack(tekst As String, sümbol As String) As Integer
    CountfromBack = InStr(StrReverse(tekst), sümbol)
End Function

---

（但我建议您继续，因为您至少完成了解决方案的一部分工作。）

您可以使用VBA函数来完成这项工作：

Function CountfromBack(tekst As String, sümbol As String) As Integer
    CountfromBack = InStr(StrReverse(tekst), sümbol)
End Function

（但我建议你也这么做，因为你至少完成了解决方案的一部分工作。）