VBA内でRange.Findを循環させる

2年 ago
海斗, 葵
1 minute

VBAでRange.Findをループ処理VBAにおけるRange.Findをループ構造（Do WhileやForなど）で繰り返すことで、Range内の各セルに対してFindメソッドを呼び出し、指定された値や条件を各ループ内で検索することができます。

ネイティブな日本語で、次の英文を言い換えてください。1つの選択肢のみが必要です：Here is an example that demonstrates how to use Range.Find to perform a looping search in VBA：

Sub LoopRangeFind()
Dim rng As Range
Dim cell As Range
Dim searchValue As Variant
Dim resultCell As Range
' 设置要搜索的范围
Set rng = Sheet1.Range("A1:A10")
' 设置要搜索的值或条件
searchValue = "Apple"
' 使用循环结构遍历每个单元格
For Each cell In rng
' 使用Find方法在当前单元格中搜索指定的值或条件
Set resultCell = rng.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
' 如果找到了匹配的单元格，则进行相应的操作
If Not resultCell Is Nothing Then
' 在找到的单元格中执行所需的操作
MsgBox "找到匹配的单元格：" & resultCell.Address
' ...
' 找到一个匹配后，退出循环以避免重复搜索
Exit For
End If
Next cell
End Sub

上のサンプルでは、まず検索する範囲rngを設定し、次に検索する値または条件searchValueを設定します。次に、For Eachループを使用して、rng内の各セルを1つずつつなぎ、Findメソッドを使用して、各セル内で指定した値または条件を検索します。一致するセルが見つかった場合は、見つかったセルで必要な処理を行うことができ、Exit Forステートメントを使用してループを終了させ、重複した検索を回避します。

範囲、検索値、アクションを、それぞれの要件に応じてコードで調整してください。

bannerAds