vba代码交集求平均值怎么算(vba交集函数)

导语：VBA代码、交集求平均值

下面是代码分享

Sub 交集 求平均()

Dim sr As Range, ch As Range, qa%, n% 申明变量

Set ch = Range().CurrentRegion 把单元格区域赋给变量

For Each sr In Intersect(Range(), ch) 循环交集区域单元格

If sr.Value = Then 条件判断

qa = sr.Offset(0, 1).Value + qa 条件成立执行变量赋值

n = n + 1 实现累加

End If 结束条件判断语句

Next 条件完成结束循环语句

Range() = qa / n 给单元格赋值

End Sub

本文内容由快快网络小婷创作整理编辑！