標題: 欲求兩個非連續區間的平均值，請各位大大幫忙，謝謝您~~ [打印本頁]

---

作者: peter460191    時間: 2024-1-18 10:02     標題: 欲求兩個非連續區間的平均值，請各位大大幫忙，謝謝您~~

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

---

作者: Andy2483    時間: 2024-1-18 10:14

本帖最後由 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

---

作者: peter460191    時間: 2024-1-19 10:25

回復 2# Andy2483

謝謝啦!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)