|
Sub zz()
Dim d, arr, brr
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet1.[a1].CurrentRegion
[e20:j29] = ""
brr = [d19:j29]
For a = 2 To UBound(brr)
For i = 2 To UBound(arr)
If arr(i, 1) = brr(a, 1) Then d(arr(i, 2)) = ""
Next
brr(a, 2) = d.Count
For b = 3 To UBound(brr, 2)
For i = 2 To UBound(arr)
If arr(i, 1) = brr(a, 1) + brr(1, b) Then
If d.exists(arr(i, 2)) Then brr(a, b) = brr(a, b) + 1
End If
Next
Next
d.RemoveAll
Next
[d19].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
这段代码是求用户留存率的,源文件如下,问题是我要求从第二天开始的留存,代码是从第三天开始的
|
|