Excel·VBA数组平均分组问题

薛定谔_512024-03-26 18:00

看到一个帖子《excel吧-数据分组问题》，对一组数据分成4组，使每组的和值相近

上一篇文章《Excel·VBA数组分组问题》，解决了这个帖子问题的第1步，即获取所有数组分组形式的问题

接下来要获取分组和值最相近的一组，只需计算每种分组形式的方差，获取方差最小的及其对应的行号，就可获取分组和值最相近的一组

先调用函数获取和值计算方差及对应的行号，再调用函数获取字符串组成形式，输出行号对应的结果

函数调用：以下代码调用了《Excel·VBA数组分组问题》数组分组函数（如需使用代码需复制，及其调用的代码）

vbnet 复制代码

Sub 平均分组()
    '计算方差vba工作表函数Var_P，与365VARPA函数等价
    Dim arr, brr, crr, b, i&, j&, f, min_f
    arr = [a1].CurrentRegion: m = 4  '待分组数组，分为m组
    brr = 数组分组(arr, m, 1): crr = 数组分组(arr, m, 2): tm = Timer
    For i = 1 To UBound(brr)
        b = Application.Index(brr, i): f = WorksheetFunction.Var_P(b)
        If Len(min_f) = 0 Then min_f = f: j = i
        If min_f > f Then min_f = f: j = i
    Next
    [c1].Resize(1, m) = Application.Index(crr, j)
    Debug.Print "累计用时" & Format(Timer - tm, "0.00")  '耗时
End Sub

由于这组数据数值差异较小，因此数组分组函数last_row参数为1，仅计算最后一种分组形式即可获取方差最小的结果。方差最小值为85042.60

9个元素分成4组	`last_row`为1	`last_row`为0
变量`j`的值	2458	13378
耗时秒数	11.79	71.33