如何跨表筛选数据并求中值？

作者：绿色风分类：时间：2022-08-17 浏览：97

楼主
liuguansky

Q：
有一个工作表，有两个SHEET。SHEET1是明细数据，SHEET2是汇总数据。
SHEET1有四列，A列：区域；B列：企业；C列：客户；D列：销售额
SHEET2通过SHEET1得到数据：A列：区域；B列：企业；C列：所有客户销售额中值（不是均值）median函数[资料已预先排序]
即C列值是满足A,B条件中所有客户的销售额中值。
如何通过VBA实现呢？
A：
用如下代码可以实现：

Sub justtest()
Dim arr, i&, st$, j&, ar, k&, art()
arr = Cells(1, 1).Resize(Cells(Rows.Count, 1).End(3).Row + 1, 3).Value
For i = 2 To UBound(arr, 1) - 1
j = i
Do While arr(i, 1) = arr(i + 1, 1) And arr(i, 2) = arr(i + 1, 2)
i = i + 1
Loop
k = k + 1: ReDim Preserve art(1 To 3, 1 To k)
art(1, k) = arr(j, 1): art(2, k) = arr(j, 2)
art(3, k) = Application.WorksheetFunction.Median(Range(Cells(j, 4), Cells(i, 4)).Value)
Next
Range("f:h").ClearContents
Range("f1:h1") = Array("区域", "企业", "Median")
Range("f2").Resize(k, 3) = Application.Transpose(art)
End Sub

2楼
亡者天下

挖宝路过！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表