エクセルマクロ文で複数の数字で連続検索する方法

質問

このマクロ文は、"1487"を連続検索するものですが

この単体"1487"を複数の数字（たとえばRange("K"＆i)み

たいな？K2からK24にはランダムな数が入力されていると

して）で連続検索するというふうにできないものでしょ

うか？

Set out = Range("A2:J111").Find("1487")
If Not out Is Nothing Then
igo = out.Address
End If

Do While Not out Is Nothing
out.Font.Color = 255
Set out = Range("A2:J111").FindNext(out)
If igo = out.Address Then
　Exit Do
　　End If
Loop
End Sub

回答No.2

zap35 · ベストアンサー

素直にFor文で回したら？

Sub Macro()
Dim rng As Range
For Each rng In Range("K2:K24")
If rng.Value <> "" Then
Set out = Range("A2:J111").Find(rng.Value)
If Not out Is Nothing Then
igo = out.Address
End If

Do While Not out Is Nothing
out.Font.ColorIndex = 3
Set out = Range("A2:J111").FindNext(out)
If igo = out.Address Then
Exit Do
End If
Loop
End If
Next
End Sub

回答No.1

hana-hana3

For Each c in Range("K2:K24")
　Set out = Range("A2:J111").Find(c.Value)
　　:
Next

お礼

有難うございました。