【急】求大神注释，代码已有

某个人X · 发表于 2019-10-30 14:14

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

这段代码是求用户留存率的，源文件如下，问题是我要求从第二天开始的留存，代码是从第三天开始的

某个人X · 发表于 2019-10-30 14:15

拜托大神了

约定的童话 · 发表于 2019-10-30 14:35

Sub zz()
Dim d, arr, brr‘定义字典数组
Set d = CreateObject("Scripting.Dictionary")'创建字典
arr = Sheet1.[a1].CurrentRegion’表1以啊为单元格所属区域赋值给数组arr
[e20:j29] = ""'清空指定区域
brr = [d19:j29]'给brr赋值
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

语虚何以言知 · 发表于 2019-10-30 14:41

本帖最后由语虚何以言知于 2019-10-30 14:42 编辑

有个程序解释器，我觉得没啥用，题主可以试试

VBA程序解释器_进化_5.rar (104.69 KB, 下载次数: 10)

某个人X · 发表于 2019-10-30 18:15

求助！搞了一下午，还是从第三天开始计算的，怎么从第二天开始啊

lkqsmxw · 发表于 2019-10-30 18:45

代码能运行计算3天的，就应能运行计算2天的。主要是你要调整一下留存日条件表，如arr(i, 1) = brr(a, 1) + brr(1, b) 中brr(1, b) 等于单元格F19值是2，改成了1，就可变为你要求的了

lkqsmxw · 发表于 2019-10-30 19:07

本帖最后由 lkqsmxw 于 2019-10-30 19:40 编辑

这是调出的brr(1,b)运行的结果

某个人X · 发表于 2019-10-30 20:02

问题已解决

Jason_WangSS · 发表于 2019-10-31 08:33

语虚何以言知发表于 2019-10-30 14:41
有个程序解释器，我觉得没啥用，题主可以试试

这个有点厉害啊

		自动登录	找回密码
密码			免费注册

[求助] 【急】求大神注释，代码已有

评分

评分

最新热点 /1