Range.Find 方法 (Excel)

在區(qū)域中查找特定信息。

語法

表達(dá)式.Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

expression 一個(gè)表示 Range 對象的變量。

參數(shù)

名稱	必需/可選	數(shù)據(jù)類型	說明
What	必需	Variant	要搜索的數(shù)據(jù)。 可為字符串或任意 Microsoft Excel 數(shù)據(jù)類型。
After	可選	Variant	要在其后開始搜索的單元格。 從用戶界面搜索時(shí)，這對應(yīng)于活動單元格的位置。 請注意，After 必須是區(qū)域內(nèi)的單個(gè)單元格。 請注意，搜索在此單元格之后開始；在方法回繞到此單元格之前，不會搜索指定的單元格。 如果未指定此參數(shù)，搜索將在區(qū)域左上角的單元格后面開始。
LookIn	可選	Variant	可以是下列 XlFindLookIn 常量之一：xlFormulas、xlValues、xlComments 或 xlCommentsThreaded。
LookAt	可選	Variant	可以是下列 XlLookAt 常量之一：xlWhole 或 xlPart。
SearchOrder	可選	Variant	可以是以下 XlSearchOrder 常量之一：xlByRows 或 xlByColumns。
SearchDirection	可選	XlSearchDirection	搜索的方向。
MatchCase	可選	Variant	如果為 True，則搜索區(qū)分大小寫。 默認(rèn)值為 False。
MatchByte	可選	Variant	僅在選擇或安裝了雙字節(jié)語言支持時(shí)使用。 如果為 True，則雙字節(jié)字符僅匹配雙字節(jié)字符。 如果為 False，則雙字節(jié)字符匹配其單字節(jié)等效字符。
SearchFormat	可選	Variant	搜索格式。

返回值

一個(gè) Range 對象，它代表在其中找到該信息的第一個(gè)單元格。

注解

如果未發(fā)現(xiàn)匹配項(xiàng)，此方法返回 Nothing。 Find 方法不會影響所選內(nèi)容或活動單元格。

每次使用此方法時(shí)，都會保存 LookIn、LookAt、SearchOrder 和 MatchByte 的設(shè)置。 如果在下次調(diào)用此方法時(shí)不指定這些參數(shù)的值，則使用保存的值。 設(shè)置這些參數(shù)會更改“查找”**** 對話框中的設(shè)置，更改“查找”**** 對話框中的設(shè)置會更改省略參數(shù)時(shí)使用的已保存值。 為避免出現(xiàn)問題，請?jiān)诿看问褂么朔椒〞r(shí)顯式設(shè)置這些參數(shù)。

使用 FindNext 和 FindPrevious 方法可重復(fù)搜索。

當(dāng)搜索到達(dá)指定的搜索區(qū)域末尾時(shí)，它會繞到該區(qū)域開頭位置。 若要在發(fā)生此繞回時(shí)停止搜索，請保存第一個(gè)找到的單元格的地址，然后針對此保存的地址測試每個(gè)連續(xù)找到的單元格地址。

若要查找與更復(fù)雜模式匹配的單元格，請將 For Each...Next 語句與 Like 運(yùn)算符結(jié)合使用。 例如，以下代碼搜索區(qū)域 A1:C5 中使用其名稱以字母 Cour 開頭的字體的所有單元格。 Microsoft Excel 找到一個(gè)匹配項(xiàng)時(shí)，會將字體更改為 Times New Roman。

VB

For Each c In [A1:C5] If c.Font.Name Like "Cour*" Then c.Font.Name = "Times New Roman" End If Next`

?

示例

本示例在第一個(gè)工作表的單元格區(qū)域 A1:A500 中查找包含值 2 的所有單元格，并將這些單元格的值更改為 5。

VB

With Worksheets(1).Range("a1:a500") ??? Set c = .Find(2, lookin:=xlValues) ??? If Not c Is Nothing Then ??????? firstAddress = c.Address ??????? Do ??????????? c.Value = 5 ??????????? Set c = .FindNext(c) ??????? Loop While Not c Is Nothing ??? End If End With

轉(zhuǎn)載于:https://www.cnblogs.com/inocalli/p/11003881.html

總結(jié)

以上是生活随笔為你收集整理的VBA函数 find的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。