欲求兩個非連續區間的平均值，請各位大大幫忙，謝謝您~~
- 帖子
- 163
- 主題
- 27
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- winsows 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-20
- 最後登錄
- 2024-5-9
|
欲求兩個非連續區間的平均值，請各位大大幫忙，謝謝您~~
欲求兩個非連續區間的『平均值』，其中含「空白值」及「0值」，這兩類都不要計算，請各位大大幫忙一下，謝謝您~~
[attach]37303[/attach][attach]37303[/attach]
[attach]37304[/attach][attach]37304[/attach] |
|
|
peter460191
|
|
|
|
|
- 帖子
- 163
- 主題
- 27
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- winsows 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-20
- 最後登錄
- 2024-5-9
|
3#
發表於 2024-1-19 10:25
| 只看該作者
|
|
peter460191
|
|
|
|
|
- 帖子
- 1446
- 主題
- 40
- 精華
- 0
- 積分
- 1470
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2024-10-21
|
2#
發表於 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 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
