Excel·VBA数组平均分组问题

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

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

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

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

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
相关推荐
盛夏绽放2 小时前
Vue3 中 Excel 导出的性能优化与实战指南
vue.js·excel
Tomorrow'sThinker5 小时前
[特殊字符] Python 自动查找替换 Excel 单元格内容 —— 高效批量处理
excel
Shipley Leo5 小时前
如何在Excel中每隔几行取一行
excel
bing_1585 小时前
Excel 数据透视表不够用时,如何处理来自多个数据源的数据?
excel
想要入门的程序猿8 小时前
Qt写入excel
数据库·qt·excel
爱代码的小黄人1 天前
Excel VLOOKUP函数使用详解:原理、格式、常见错误与解决方案
excel
YouYOUyouFairy1 天前
EXCEL动态表格
excel
Maruko3101 天前
Java 实现excel大批量导出
excel·poi
忧郁的蛋~1 天前
HTML表格导出为Excel文件的实现方案
前端·html·excel
不坑老师2 天前
利用不坑盒子的Copilot,快速排值班表
microsoft·word·powerpoint·excel·copilot·wps