Office中国论坛/Access中国论坛

标题: [求助]什么函数可以统计某个字符在一字符串中出现的的次数 [打印本页]

---

作者: Howitzer    时间: 2004-8-19 20:57
标题: [求助]什么函数可以统计某个字符在一字符串中出现的的次数
1、在某一单元格中输入任意一字符串。

2、统计上述字符串中某字符（如“?”）出现的次数。

3、将该次数写入同一行旁边的单元格中。

---

作者: Benjamin_luk    时间: 2004-8-19 22:10
自己建立一个FUNCTION了,没有现成的[em05]

---

作者: stanleypan    时间: 2004-8-20 02:54
Public Function AppearTimes(ByVal OriginStr As String, ByVal SubStr As String) As Long

'一个子字符串在母字符串出现的次数

    Dim n As Long, i As Long

    Dim FrontStr As String, BackStr As String

   

    i = 0

    Do

        n = InStr(OriginStr, SubStr)

        If n <= 0 Then

            Exit Do

        End If

        

        i = i + 1

        OriginStr = Right(OriginStr, Len(OriginStr) - n + 1 - Len(SubStr))

    Loop



    AppearTimes = i

End Function

---

作者: 丸宏振引    时间: 2004-8-20 05:37
n = UBound(Split(Range("a1").Value, "?"))

---

作者: 老鬼    时间: 2004-8-29 06:15
=len(A1)-len(substitute(A1,"?",""))

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3