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