- 帖子
- 17
- 主題
- 0
- 精華
- 0
- 積分
- 22
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- Hsinchu
- 註冊時間
- 2013-9-5
- 最後登錄
- 2024-7-23
|
本帖最後由 yuhuahsiao 於 2013-10-11 17:12 編輯
回復 4# wj1228.518
我利用您上面的方式讀入檔案, 但我無權下載那些檔案
所以是利用最商方那一列資料試驗
可以輸入變動公式方式作業
約略如下
Sub avg()
For i = 1 To 10
Sheets("0").Cells(i + 2, 12).Formula = "=AVERAGE($E$" & i & ":$E$" & i + 2 & ")"
Next i
End Sub |
|