查找并定位單元格區(qū)域中的最大值的方法

1、啟動Excel并打開Visual Basic編輯器，在工程資源管理器中插入一個模塊，在模塊的“代碼”窗口中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：

Sub GetMaxs()

Dim aRange As Range

Dim aMaxVal As Double

If TypeName(Selection)<>"Range "Then

Exit Sub '如果沒有選中區(qū)域，則退出程序

End If

If Selection.Count=1 Then

Set aRange=Cells '如果僅選中一個單元格，則搜索整個工作表

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"沒有找到最大值："&aMaxVal

End If

End Sub

圖1　創(chuàng)建模塊并輸入程序代碼

提示

程序使用Range對象的Find方法來進行查詢，該方法的語法結(jié)構(gòu)如下所示：

expression.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)

這里，What參數(shù)是必須的，其用來指定要搜索的數(shù)據(jù)，可為字符串或任意Microsoft Excel數(shù)據(jù)類型。After參數(shù)表示搜索過程將從其之后開始進行的單元格。LookIn參數(shù)用于設(shè)置信息類型。LookAt參數(shù)用于設(shè)置文本的匹配方式。SearchOrder參數(shù)用于指定搜索區(qū)域的次序。SearchDirection參數(shù)用于設(shè)置搜索的方向。MatchCase參數(shù)值若為True，則進行區(qū)分大小寫的查找，其默認值為False。MatchByte參數(shù)僅在選擇或安裝了雙字節(jié)語言支持時使用，若為True，則雙字節(jié)字符僅匹配雙字節(jié)字符;若為False，則雙字節(jié)字符可匹配其等價的單字節(jié)字符。SearchFormat參數(shù)用于設(shè)置搜索的格式。

2、按F5鍵運行該程序，切換到Excel，工作表中的最大值所在單元格處于激活狀態(tài)，如圖2所示。

圖2　最大值所在單元格被激活