VB中怎麽對數組裏面相同的元素進行有條件求平均值，實現類似於EXCEL裏SUNMIF有條件求和的功能？

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

稍微高級壹點的辦法是使用字典對象，壹次掃描原始數據區