返回列表 上一主題 發帖

未知資料筆數計算

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-8 16:14 | 顯示全部帖子

未知資料筆數計算

Sub Macro1()
    Range("N7:N20000") = "=AVERAGE(E7:M7)"
    Range("O7:O20000") = "=MAX(E7:M7)"
    Range("P7:P20000") = "=MIN(E7:M7)"
    Range("N7:P20000") = Range("N7:P20000").Value
End Sub
因為資料筆數不一定
目前都用上列程式執行完後.再手動刪除沒有計算值的資料
請問有沒有不用手動.其他更簡單的寫法去執行
收藏 分享
boyao

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
2#
發表於 2012-8-9 11:14 | 顯示全部帖子
回復 3# GBKEE


GBKEE大大
試出來的結果會計算所有資料的 最大.最小.平均
需要再改哪邊的參數?
boyao

TOP

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
3#
發表於 2012-8-14 11:15 | 顯示全部帖子
回復 5# GBKEE


    GBKEE大大
我想求的是同一列資料的最大值.最小值跟平均值
但依你提供的資料去套用
計算出來是所有資料統計出來的 最大值.最小值跟平均值.而非單列(每一列的計算結果都是相同答案)

之前習慣用錄製後再修改.跟用寫的語法差好多
想請教有沒有其他的寫法可以比較簡單的執行
謝謝!
boyao

TOP

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
4#
發表於 2012-8-15 09:22 | 顯示全部帖子
回復 7# GBKEE


    OK 可以了
謝謝GBKEE大大
boyao

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題