VB中怎么对数组里面相同的元素进行有条件求平均值,实现类似于EXCEL里S...

发布网友发布时间：2024-01-02 20:10

共1个回答

热心网友时间：2024-04-03 09:14

最简单的算法是双重for循环：
dim arr1,arr2,i1,i2,s,n
arr1=range("a1:b7")
arr2=range("d1:f3")
for i2=1 to ubound(arr2)
s=0'求和

n=0'个数

for i1=1 to ubound(arr1)

if arr1(i1,1)=arr2(i2,1) then

s=s+arr1(i1,2)

n=n+1

end if

next i1

if n>0 then arr2(i2,2)=s/n else arr2(i2,2)=empty

next i2
range("d1:f3")=arr2

稍微高级一点的办法是使用字典对象，一次扫描原始数据区

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com