求数据数量总和

没看懂，如果只求1的数量，重复两遍，哪下面不应该都是2吗？
因为每一行里的1都是独立的，重复两遍，哪就是两个1，
所以你B列得到的数据并不完全要一样。
如果要是求所有重复的数字，哪也不对啊~
所以你到底要达到什么样的结果嘞？

1、11、111 结果是1个1还是6个1？

Option Explicit
Sub abc()
　Dim a, i
　a = [a1].CurrentRegion.Offset(1).Resize(, 1).Value
　For i = 1 To UBound(a) - 1
　　a(i, 1) = Len(a(i, 1)) - Len(Replace(a(i, 1), "1", vbNullString))
　Next
　[c2].Resize(UBound(a) - 1) = a
End Sub

'当匹配的字符串长度>1是结果有问题，修改了一下。
Option Explicit
Const STR As String = "11"
Sub abc()
　Dim a, i
　a = [a1].CurrentRegion.Offset(1).Resize(, 1).Value
　For i = 1 To UBound(a) - 1
　　a(i, 1) = (Len(a(i, 1)) - Len(Replace(a(i, 1), STR, vbNullString))) / Len(STR)
　Next
　[c2].Resize(UBound(a) - 1) = a
End Sub

用FIND无法处理包含的情况吧，比如18、19、20，里面应当是不包括8的。
所以必须先用【、】分割字符串，再判断是否包含8。
加上分割的话我没法儿用一个公式写出来，得加辅助列。