如何批量求顾客平均购买频率？

游戏一场

亦武

你举的例子中的分母4是怎么来的？

游戏一场

亦武 发表于 2020-5-28 14:57
你举的例子中的分母4是怎么来的？

间隔次数~~~~~~~~

jokulboy

3.67怎么来的，不应该是3.2？
（1+3+4+4+4）/5

jokulboy

S2单元格输入，下拉
=SUM(MOD(SMALL(FREQUENCY(COLUMN($B2:$R2),LARGE(IF($B2:$R2<>"",COLUMN($B2:$R2)),ROW(INDIRECT("1:"&COUNT($B2:$R2)))))+ROW(INDIRECT("1:"&COUNT($B2:$R2)+1))*10^5,ROW(INDIRECT("1:"&COUNT($B2:$R2)-1))),10^5))/(COUNT($B2:$R2)-1)

数组公式，三键输入

很久没写了，应该可以优化的
讲真还是VBA简单得多

wodewan

第一个结果模拟貌似有误，T列函数（数组），U列VBA，附件供参考。

jokulboy

楼上大佬的公式直接用列号相减，可能更简单，这样还可以规避日期，只考虑次数。
=SUM(LARGE(IF(B2:R2<>"",COLUMN(B2:R2)),ROW(INDIRECT("1:"&COUNT(B2:R2)-1)))-LARGE(IF(B2:R2<>"",COLUMN(B2:R2)),ROW(INDIRECT("2:"&COUNT(B2:R2)))))/(COUNT(B2:R2)-1)

jisoandiu

加了1列购买次数的辅助列
代码自己看吧
Sub test()
Application.ScreenUpdating = False
arr = [a1].CurrentRegion
i = UBound(arr, 1)
j = UBound(arr, 2)
y = 0
For a = 2 To i
    For b = 2 To j - 1
        If Cells(a, b) <> "" Then
            mn = Cells(1, b)
            y = y + 1
                If y = 1 Then
                    first = mn
                ElseIf y = Cells(a, "s") Then
                    last = Cells(1, b)
                    s = Round(((last - first) / 30), 0)
                End If
        End If
    Next
    Cells(a, "t") = s / (Cells(a, "s") - 1)
Next
Cells(1, "t") = "平均购买频率（期望结果）"
Application.ScreenUpdating = True
End Sub

游戏一场

wodewan 发表于 2020-5-28 16:00
第一个结果模拟貌似有误，T列函数（数组），U列VBA，附件供参考。

感谢大佬呀~第一个我例子我算错了~

larer

jokulboy 发表于 2020-5-28 15:57
S2单元格输入，下拉
=SUM(MOD(SMALL(FREQUENCY(COLUMN($B2:$R2),LARGE(IF($B2:$R2"",COLUMN($B2:$R2)),ROW ...

看到这种公式我就头疼了,所以现在基本不写复杂公式,全靠VBA
另外问下,你公式里有没有考虑同一天多次购买,如果只算一次的问题,哈哈