怎麼用函數求出第三大的數 ?

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

18^# 跳轉到 »

發表於 2010-7-7 14:19 | 只看該作者

回復 16# zz5151353

拍手叫好.gif

原來FREQUENCY的bins_array是不需要連續數值及單一性
這函數很少去用他值得研究看看

學海無涯_不恥下問

TOP

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

17^#

發表於 2010-7-7 12:28 | 只看該作者

解的好,學習了

知之為知之，不知為不知，誠實也！

TOP

zz5151353

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 206
主題: 3
精華: 0
積分: 218
點名: 0
作業系統: WIN10
軟體版本: OFFICE 365
閱讀權限: 100
性別: 男
來自: 台灣台北
註冊時間: 2010-5-15
最後登錄: 2023-6-18

16^#

發表於 2010-7-7 12:18 | 只看該作者

gong 版主
還是可以用回原來的 FREQUENCY 函數

{=LARGE(IF(FREQUENCY(A1:A100,A1:A100),A1:A100),3)}

300 字節以內
不支持自定義 Discuz! 代碼

TOP

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

15^#

發表於 2010-7-6 23:41 | 只看該作者

本帖最後由 gong 於 2010-7-7 00:05 編輯

{=INDEX(A2:A100,MATCH(LARGE(IF(ISNUMBER(MATCH(ROW(1:100),RANK($A$2:$A$100,$A$2:$A$100,1),0)),ROW(1:100),0),3),RANK($A$2:$A$100,$A$2:$A$100,1),0))}

gong.rar (4.76 KB)

知之為知之，不知為不知，誠實也！

TOP

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

14^#

發表於 2010-7-6 23:13 | 只看該作者

我也知道這樣有點偷雞
用函數還真不好玩
只能說樓主出的題目都挺有深度
值得來學習及動動腦

知之為知之，不知為不知，誠實也！

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2010-7-6 23:06 | 只看該作者

回復 12# gong

若C欄中的數值很大時如超過65536
恐怕就無法使用此法了

學海無涯_不恥下問

TOP

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

12^#

發表於 2010-7-6 22:04 | 只看該作者

不曉得這樣合用嗎
{=LARGE(IF(FREQUENCY(A2:A17,ROW(1:99)),ROW(1:100),0),3)}

Book1.rar (2.13 KB)

知之為知之，不知為不知，誠實也！

TOP

wqfzqgk

中學生 Rank: 2

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

11^#

發表於 2010-7-6 21:39 | 只看該作者

应该是在没有确定错误的情况下才使用on error

学习

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-7-6 21:06 | 只看該作者

dictionary物件要使用add方法可配合exists先檢查是否索引值已經存在
個人並不贊同使用on error陳述式來避開錯誤
只有在不確定錯誤產生狀況才使用on error resume next

Function maxk(rng As Range, k As Integer)
Set d = CreateObject("scripting.dictionary")
Dim rngg As Range
For Each rngg In rng
If d.exists(rngg.Value) = False Then d(rngg.Value) = ""
Next
maxk = Application.WorksheetFunction.Large(d.keys, k)
End Function

複製代碼

學海無涯_不恥下問

TOP

wqfzqgk

中學生 Rank: 2

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

9^#

發表於 2010-7-6 20:49 | 只看該作者

本帖最後由 wqfzqgk 於 2010-7-6 20:54 編輯

回復 8# wqfzqgk

我没有看你的程序，我的那个不加不行，討論不重複清單中也可以用个来实现

学习

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]