统计出现的次数的公式？

caipiaofans

我只会简单的countif/counta用法。
复杂的就不会用了。
请教各位老师
下面的这例子的公式要如何写？
如图

B1=90583，A2=09378
求D1=4的公式
D1=4是这样来的，
统计b1的数字90583（看做是5个数字）在A2的09378里一个出现几个数字
这里分别出现9,0,8,3，一共4个。
所以D1的值为4
其实也可以看成是有几个相同的数字。
C1=71264，A2=09378
求E1=1的公式
E1=4是这样来的，
统计c1的数字71264（看做是5个数字）在A2的09378里一个出现几个数字
这里分别出现7，一共1个。
所以E1的值为4
同理可得 D2-E5的值

请各位老师帮忙
谢谢


附件下载： help1.rar (3.74 KB, 下载次数: 1)

2018-9-22 23:46 上传

点击文件名下载附件

caipiaofans

各位老师早上好

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a1:e" & r)
   
7.     For j = 2 To 3
   
8.       For i = 1 To UBound(arr) - 1
   
9.         l = Len(arr(i + 1, 1))
   
10.         s = arr(i + 1, 1)
    
11.         For k = 1 To Len(arr(i, j))
    
12.           s = Replace(s, Mid(arr(i, j), k, 1), "")
    
13.         Next
    
14.         arr(i, j + 2) = l - Len(s)
    
15.       Next
    
16.     Next
    
17.     .Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
18.   End With
    
19. End Sub
    

复制代码

chxw68

详见附件。

caipiaofans

谢谢chxw68老师的帮忙