Excel·VBA数组平均分组问题
看到一个帖子《excel吧-数据分组问题》，对一组数据分成4组，使每组的和值相近
上一篇文章《Excel·VBA数组分组问题》，解决了这个帖子问题的第1步，即获取所有数组分组形式的问题
接下来要获取分组和值最相近的一组，只需计算每种分组形式的方差，获取方差最小的及其对应的行号，就可获取分组和值最相近的一组
先调用函数获取和值计算方差及对应的行号，再调用函数获取字符串组成形式，输出行号对应的结果
- 函数调用：以下代码调用了《Excel·VBA数组分组问题》
数组分组函数（如需使用代码需复制，及其调用的代码）
Sub 平均分组()'计算方差vba工作表函数Var_P，与365VARPA函数等价Dim arr, brr, crr, b, i&, j&, f, min_farr = [a1].CurrentRegion: m = 4 '待分组数组，分为m组brr = 数组分组(arr, m, 1): crr = 数组分组(arr, m, 2): tm = TimerFor 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 = iIf min_f > f Then min_f = f: j = iNext[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 |