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

[發問] 搜尋符合條件的最小值及最大值

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-11-17 10:13 | 只看該作者

[發問] 搜尋符合條件的最小值及最大值

請教各位大大,
以下資料為sheet 1,若我在sheet 2以INV為主作搜尋對照,如何抓取BCM的最小值?(它有數字及文字)
例如:sheet 2的A欄位是INV,B欄位是BCM最小值,C欄位是BCM最大值
CI12-002 最小值我希望找到的是B2= 120001,最大值是C2=120362-2

INV BCM
CI12-002 120351
CI12-008 120352
CI12-003 120353
CI12-004 120354
CI12-005 120355
CI12-002 120358-3
CI12-001 120362-1
CI12-002 120362-2
CI12-002 120001
CI12-002 120014-1A

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-11-18 17:42 | 只看該作者

回復 2# Hsieh
回復 1# PJChen
不好意思，借用 Hsieh 版大的語法稍加修飾：

Sub Test()
Dim ans As Variant
ans = RankData(Range("B2:B11"), True)
MsgBox "最大值為 " & ans
ans = RankData(Range("B2:B11"), False)
MsgBox "最小值為 " & ans
End Sub
Function RankData(Rng As Range, asc As Boolean) As Variant
Dim rn As Variant
For Each rn In Rng
If asc = True Then
RankData = IIf(RankData = "", rn, IIf(rn > RankData, rn, RankData))
Else
RankData = IIf(RankData = "", rn, IIf(rn < RankData, rn, RankData))
End If
Next
End Function

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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