VB中怎么对数组里面相同的元素进行有条件求平均值，实现类似于EXCEL里SUNMIF有条件求和的功能？
发布网友
发布时间：2022-04-24 06:48
共1个回答
热心网友
时间：2023-10-08 22:23
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
稍微高级一点的办法是使用字典对象，一次扫描原始数据区
