怎么查找并定位Excel單元格區(qū)域中的最大值
怎么查找并定位Excel單元格區(qū)域中的最大值
在對(duì)Excel數(shù)據(jù)進(jìn)行分析時(shí)，有時(shí)需要找到該區(qū)域中數(shù)據(jù)的最大值，使用VBA中的Find方法能夠方便地實(shí)現(xiàn)這一操作。以下是學(xué)習(xí)啦小編為您帶來(lái)的關(guān)于查找并定位Excel單元格區(qū)域中的最大值的方法，希望對(duì)您有所幫助。
查找并定位Excel單元格區(qū)域中的最大值的方法
1、啟動(dòng)Excel并打開(kāi)Visual Basic編輯器，在工程資源管理器中插入一個(gè)模塊，在模塊的“代碼”窗口中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：
Sub GetMaxs()
Dim aRange As Range
Dim aMaxVal As Double
If TypeName(Selection)<>"Range "Then
Exit Sub '如果沒(méi)有選中區(qū)域，則退出程序
End If
If Selection.Count=1 Then
Set aRange=Cells '如果僅選中一個(gè)單元格，則搜索整個(gè)工作表
Else
Set aRange=Selection
End If
aMaxVal=Application.Max(aRange) '獲取區(qū)域中的最大值
On Error Resume Next
aRange.Find(aMaxVal,aRange.Range("A1"),xlValues,xlWhole,xlByRows,xlNext,False).Select
If Err<>0 Then
MsgBox"沒(méi)有找到最大值："&aMaxVal
End If
End Sub
圖1 創(chuàng)建模塊并輸入程序代碼
提示
程序使用Range對(duì)象的Find方法來(lái)進(jìn)行查詢(xún)，該方法的語(yǔ)法結(jié)構(gòu)如下所示：
expression.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)
這里，What參數(shù)是必須的，其用來(lái)指定要搜索的數(shù)據(jù)，可為字符串或任意Microsoft Excel數(shù)據(jù)類(lèi)型。After參數(shù)表示搜索過(guò)程將從其之后開(kāi)始進(jìn)行的單元格。LookIn參數(shù)用于設(shè)置信息類(lèi)型。LookAt參數(shù)用于設(shè)置文本的匹配方式。SearchOrder參數(shù)用于指定搜索區(qū)域的次序。SearchDirection參數(shù)用于設(shè)置搜索的方向。MatchCase參數(shù)值若為T(mén)rue，則進(jìn)行區(qū)分大小寫(xiě)的查找，其默認(rèn)值為False。MatchByte參數(shù)僅在選擇或安裝了雙字節(jié)語(yǔ)言支持時(shí)使用，若為T(mén)rue，則雙字節(jié)字符僅匹配雙字節(jié)字符;若為False，則雙字節(jié)字符可匹配其等價(jià)的單字節(jié)字符。SearchFormat參數(shù)用于設(shè)置搜索的格式。
2、按F5鍵運(yùn)行該程序，切換到Excel，工作表中的最大值所在單元格處于激活狀態(tài)，如圖2所示。
圖2 最大值所在單元格被激活
猜你喜歡：
3.excel怎么把計(jì)算結(jié)果顯示的其他單元格