返回列表 上一主題 發帖

欲求兩個非連續區間的平均值,請各位大大幫忙,謝謝您~~

欲求兩個非連續區間的平均值,請各位大大幫忙,謝謝您~~

欲求兩個非連續區間的『平均值』,其中含「空白值」及「0值」,這兩類都不要計算,請各位大大幫忙一下,謝謝您~~
[attach]37303[/attach][attach]37303[/attach]
[attach]37304[/attach][attach]37304[/attach]
peter460191

本帖最後由 Andy2483 於 2024-1-18 11:39 編輯

回復 1# peter460191


    圖片無法顯示
Option Explicit
Sub TEST()
Dim xU As Range, xA, N&, xR As Range, V
Set xU = Union([R6:R9, R13:R17], Range([S6], [S65536].End(3)))
For Each xR In xU
   If Val(xR) <> 0 Then N = N + 1: V = V + Val(xR)
Next
If N > 0 Then MsgBox V / N
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 2# Andy2483

謝謝啦!
peter460191

TOP

        靜思自在 : 唯其尊重自己的人,才更勇於縮小自己。
返回列表 上一主題