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
相关推荐
Goona_10 小时前
拒绝SQL恐惧:用Python+pyqt打造任意Excel数据库查询系统
数据库·python·sql·excel·pyqt
忘忧记10 小时前
excel删除重复项场景
excel
UrbanJazzerati13 小时前
Excel 神器 COUNTIFS 函数详解:多条件计数实战
excel
想学习java初学者1 天前
SpringBoot整合Fastexcel/EasyExcel导出Excel导出单个图片
excel
LAM LAB2 天前
【WPS】office邮件合并,怎么将数据源excel中的下一条拼接在文档中的下一个位置
excel·wps
SEO-狼术2 天前
Document Solutions for Excel, .NET
excel
Access开发易登软件3 天前
Access开发一键删除Excel指定工作表
服务器·前端·后端·excel·vba·access·access开发
Saggitarxm3 天前
Golang实现 - 实现只有表头的 Excel 模板,并在指定列添加了下拉框功能。生成的 Excel 文件在打开时,指定列的单元格会显示下拉选项
excel·下拉框选项序列·生成excel模板·下拉框选项
pk_xz1234563 天前
SAP全自动化工具开发:Excel自动上传与邮件通知系统
运维·人工智能·windows·深度学习·分类·自动化·excel
俊昭喜喜里4 天前
Excel——设置打印的区域
excel