- 帖子
- 558
- 主題
- 58
- 精華
- 0
- 積分
- 625
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-5-18
|
回復 3# jiuhtsair
提供另一種多次運算的寫法 (每6筆計算標準差)- Sub test()
- A = Application.CountA(Sheet1.Range("A1:A65536"))
- A = A / 6
- If A = Int(A) Then
- For I = 1 To A
- Range("B" & I * 6) = Application.StDev(Sheet1.Range("A" & I * 6 - 5 & ":A" & 6 * I))
- Next
- Else
- MsgBox "資料不等於6整除"
- End If
- End Sub
|
|
發表於 2012-2-29 11:33
| 