在對Excel數據進行分析時,有時需要找到該區(qū)域中數據的最大值,使用VBA中的Find方法能夠方便地實現這一操作。本文介紹查找并定位單元格區(qū)域中的最大值的方法。
1、啟動Excel并打開Visual Basic編輯器,在工程資源管理器中插入一個模塊,在模塊的“代碼”窗口中輸入程序代碼,。具體的程序代碼:
Sub GetMaxs()
Dim aRange As Range
Dim aMaxVal As Double
If TypeName(Selection)<>"Range "Then
Exit Sub ':
expression.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)
這里,What參數是必須的,其用來指定要搜索的數據,可為字符串或任意Microsoft Excel數據類型。After參數表示搜索過程將從其之后開始進行的單元格。LookIn參數用于設置信息類型。LookAt參數用于設置文本的匹配方式。SearchOrder參數用于指定搜索區(qū)域的次序。SearchDirection參數用于設置搜索的方向。MatchCase參數值若為True,則進行區(qū)分大小寫的查找,其默認值為False。MatchByte參數僅在選擇或安裝了雙字節(jié)語言支持時使用,若為True,則雙字節(jié)字符僅匹配雙字節(jié)字符;若為False,則雙字節(jié)字符可匹配其等價的單字節(jié)字符。SearchFormat參數用于設置搜索的格式。
2、按F5鍵運行該程序,切換到Excel,工作表中的最大值所在單元格處于激活狀態(tài),。
圖2 最大值所在單元格被激活