麻辣家族討論版版 » Excel程式區 » 未知資料筆數計算

返回列表下一主題上一主題發帖

未知資料筆數計算

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

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

2013蛇年全勤獎章

8^#

發表於 2012-8-15 09:22 | 只看該作者

回復 7# GBKEE

OK 可以了
謝謝GBKEE大大

boyao

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2012-8-14 11:42 | 只看該作者

回復 6# boyao
試試看

Option Explicit
Sub Ex()
Dim Rng(1 To 2) As Range, i As Integer
Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
For i = 1 To Rng(2).Rows.Count '.Count : Rng(2).Rows的總數
'Rows 物件: 範圍的列
'Columns 物件: 範圍的欄
' Rng(1).Rows(i)的第i列
' Rng(2).Rows(i)的第i列
Rng(2).Rows(i).Cells(1) = Application.Average(Rng(1).Rows(i))
Rng(2).Rows(i).Cells(2) = Application.Max(Rng(1).Rows(i))
Rng(2).Rows(i).Cells(3) = Application.Min(Rng(1).Rows(i))
Next
End Sub

複製代碼

中學生 Rank: 2

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

2013蛇年全勤獎章

6^#

發表於 2012-8-14 11:15 | 只看該作者

回復 5# GBKEE

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

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

boyao

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-8-13 10:05 | 只看該作者

回復 4# boyao
試出來的結果會計算所有資料的最大.最小.平均需要再改哪邊的參數?
領悟不出說法涵義,請再說明一下

中學生 Rank: 2

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

2013蛇年全勤獎章

4^#

發表於 2012-8-9 11:14 | 只看該作者

回復 3# GBKEE

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

boyao

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-8-9 08:07 | 只看該作者

回復 1# boyao
試試看

Option Explicit
Sub Macro1()
Dim Rng(1 To 2) As Range
Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
Rng(2).Columns(1) = Application.Average(Rng(1))
Rng(2).Columns(2) = Application.Max(Rng(1))
Rng(2).Columns(3) = Application.Min(Rng(1))
End Sub

複製代碼

中學生 Rank: 2

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 331
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

2^#

發表於 2012-8-9 04:49 | 只看該作者

回復 1# boyao

N20000....等..換成[ n65535].end(xlup).row....變動尾筆!!
相對的用 ......& "n" & [n65535].end(xlup).row去帶入....

靜思自在 : 時時好心就是時時好日。

返回列表下一主題上一主題