如何从字符串中获取特定字符的数量?

Question

如何从字符串中获取特定字符的数量?如字符串“0001”，我用什么函数可以知道有几个0几个1 
还有个问题我有10个变量 分别为ID1，ID2 。ID10
每个变量都是四位的二进制数如“0001”都要用到上面的计算
能用for 循环吗？ 我用IDi不行，有其他的办法吗？希望大家帮下忙，在线等，谢谢

Answer 1

dim a() as variant, i as long
a=array(ID1,ID2,...ID10)
for i=0 to ubound(a)
    debug.print a(i), ubound(split(a(i),"0")),ubound(split(a(i),"1"))
next

Answer 2

Dim s As String
s = "00011"
Dim c As String
Dim f As String
f = "1"
c = Replace(s, f, "")
Debug.Print """" & f & """的数量:" & Len(s) - Len(c)