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

---

作者: peter460191    時間: 2024-1-18 15:41     標題: 欲求兩個非連續區間的，請各位大大幫忙一下，謝謝您~~

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

---

作者: Andy2483    時間: 2024-1-18 15:59

回復 1# peter460191


    謝謝前輩發表此主題與範例
後學練習VBA方案如下,請前輩參考
執行結果:
[attach]37305[/attach]

Option Explicit
Sub TEST()
Dim xU As Range, xA, N&, xR As Range, V
Set xU = Union([B1:B20], [B23:B32])
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: [B36] = V / N
End Sub

---

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

回復 2# Andy2483

非常謝謝大大您的指導~~
有無用一般的公式解法?
謝謝您~

---

作者: Andy2483    時間: 2024-1-19 10:28

本帖最後由 Andy2483 於 2024-1-19 10:30 編輯

回復 3# peter460191


    謝謝前輩回復,請參考以下連結帖
https://forum.twbts.com/viewthre ... =%A5%AD%A7%A1%AD%C8
https://forum.twbts.com/viewthre ... =%A5%AD%A7%A1%AD%C8

---

作者: 准提部林    時間: 2024-1-19 12:08

陣列公式(三鍵)
=AVERAGEA(IF(1-ISERR(0/A1:A35/B1:B35),B1:B35))

---

作者: peter460191    時間: 2024-1-19 13:31

回復 4# Andy2483

謝謝你~~
我來研究看看

---

作者: peter460191    時間: 2024-1-19 13:42

回復 5# 准提部林

謝謝 准提部林 版主 ,可以計算了,但不是很了解,需花點時間來研究研究~
非常謝謝您的分享!

---

作者: 准提部林    時間: 2024-1-19 14:44

回復 7# peter460191

用兩欄計算式//對照陣列公式
[attach]37313[/attach]

另, 應使用AVERAGE才對

---

作者: peter460191    時間: 2024-1-30 12:12

回復 8# 准提部林

好的,謝謝您!
我再來看看研究研究.

---

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