麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 想求A20:A200最後10筆的平均數公式如何寫? [打印本頁]

作者: t8899 時間: 2012-10-25 07:35 標題: 想求A20:A200最後10筆的平均數公式如何寫?

想求A20:A200最後10筆的平均數公式如何寫?
如果不到10筆，就求最後幾筆的平均
如果
1.中間有空白,照算,算0 公式是如何?
1.中間有空白,不算,再往上抓到10筆,公式又是如何?

作者: GBKEE 時間: 2012-10-25 08:50

回復 1# t8899

Option Explicit
Sub Ex()
Dim i As Integer, xSum As Long, xi As Integer, x As Integer
x = 10
For i = 200 To 20 Step -1
If xi > x Then Exit For
If Cells(i, "a") <> "" Then
xSum = xSum + Cells(i, "a")
xi = xi + 1
End If
Next
MsgBox xSum / x
End Sub

複製代碼

作者: t8899 時間: 2012-10-25 19:50

回復 t8899
GBKEE 發表於 2012-10-25 08:50

謝謝!
我是想用公式的方式直接在儲存格算出
不知有無辦法?

作者: JBY 時間: 2012-10-28 11:49

回復 3# t8899

A20:A200最後10筆的平均數公式

如果不到10筆，就求最後幾筆的平均

=AVERAGE(OFFSET(INDEX(A20:A200,MATCH(9.99E+307,A20:A200)),0,0,-MIN(10,COUNT(A20:A200))))

作者: JBY 時間: 2012-10-28 12:09

回復 3# t8899

A20:A200最後10筆的平均數公式

如果不到10筆，就求最後幾筆的平均

中間有空白,不算,再往上抓到10筆

阵列公式 :

{=AVERAGE(IF(ISNUMBER(MATCH(ROW(A20:A200),LARGE(IF(ISNUMBER(A20:A200),ROW(A20:A200)),ROW(INDIRECT("1:10"))),0)),A20:A200))}

作者: gong 時間: 2012-10-28 20:47

本帖最後由 gong 於 2012-10-28 20:50 編輯

=AVERAGE(INDIRECT("r"&MAX(1,MATCH(9.99E+307,A:A,1)-9)&":r"&MATCH(9.99E+307,A:A,1)&"c1",0))
最後10筆含空白之平均

作者: gong 時間: 2012-10-28 20:54

=SUM(INDIRECT("r"&MAX(1,MATCH(9.99E+307,A:A,1)-9)&":r"&MATCH(9.99E+307,A:A,1)&"c1",0))/MIN(10,MATCH(9.99E+307,A:A,1))
空白以"0"計算之平均

作者: t8899 時間: 2012-10-28 21:49

A20:A200最後10筆的平均數公式

如果不到10筆，就求最後幾筆的平均

=AVERAGE(OFFSET( ...
JBY 發表於 2012-10-28 11:49

請問 9.99E+307 是什意思??

作者: gong 時間: 2012-10-29 12:48

2、計算時的限制
數位精度 15 位
單格中可鍵入的最大數值 9.99999999999999E+307
最大正數 1.79769313486231E308
最小負數 -2.2250738585072E-308
最小正數 2.229E-308
最大負數 -2.2250738585073E-308
公式內容的長度 1,024 個字元
叠代次數 32767
工作表陣列個數受可用記憶體限制。另外，陣列不能引用整個列。例如，陣列不能引用整個 C:C 列或 C1:C65536 區域。然而，陣列可以引用區域 C1:D65535，因爲此區域比最大工作表的大小少一行，且未包括整個 C 或 D 列。
選定區域個數 2,048
函數的參數個數 30
函數的嵌套層數 7
可用工作表函數的個數 329
計算允許的最早日期 1900 年 1 月 1 日（如果使用 1904 年日期系統，則爲 1904 年 1 月 1 日）

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