请各位大神帮忙弄个数据分析工具

jackhuilei

有一个一周的数据，根据”Cluster“这一列，和 起点 --到达点进行分类分析，大神们能否帮忙设计一个快捷的EXCEL 工具？下面是我手动分析的 ，

cnmlgb9998

你搞一堆看不明白的 德文? 密集恐惧！！！！！！！

jackhuilei

我把我要做的表格直接上传了，我也不认识德文

3190496160

Sub hz()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("TA")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 4 Then MsgBox "TA为空！": End
    ar = .Range("a3:r" & r)
End With
Dim br()
ReDim br(1 To UBound(ar), 1 To 6)
For i = 2 To UBound(ar)
    zd = ar(i, 4) & "|" & ar(i, 5) & "|" & ar(i, 6) & "|" & ar(i, 8)
    t = d(zd)
    If t = "" Then
        k = k + 1
        d(zd) = k
        t = k
        br(k, 1) = ar(i, 4)
        br(k, 2) = ar(i, 5)
        br(k, 3) = ar(i, 6)
        br(k, 4) = ar(i, 8)
    End If
    br(t, 5) = br(t, 5) + 1
    br(t, 6) = br(t, 5) / 15
Next i
With Sheets("Sheet1")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(k, UBound(br, 2)) = br
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

数据表格.rar (1.26 MB, 下载次数: 6)

2024-3-12 13:11 上传

点击文件名下载附件

jackhuilei

3190496160 发表于 2024-3-12 13:11

感谢，我下载下来试试

tomcluse_1227

需求呢，你要做成怎样的效果？计算过程？