下面是程式碼分享

Sub 交集 求平均()

Dim sr As Range, ch As Range, qa%, n% 申明變數

Set ch = Range("b3").CurrentRegion 把單元格區域賦給變數

For Each sr In Intersect(Range("c:c"), ch) 迴圈交集區域單元格

If sr.Value = "生產部" Then 條件判斷

qa = sr.Offset(0, 1).Value + qa 條件成立執行變數賦值

n = n + 1 實現累加

End If 結束條件判斷語句

Next 條件完成結束迴圈語句

Range("g1") = qa / n 給單元格賦值

End Sub