|
▼VBA初心者 さん:
こんにちは。
>["3列目が相沢"かつ"6列目が24"だったら]という条件にしたい場合は教えてもらった構文をどのように変更すればよいでしょうか?
前の構文(Findメソッドを生かす)とすれば、ぼくも
Yukiさんのように AutoFilterを使うと思います。
↓別法です。
Sub Try2()
Dim r As Range
Dim i As Long
Dim Data1, Data2
Set r = Range("C1", Cells(Rows.Count, 3).End(xlUp))
Data1 = r.Value
Data2 = r.Offset(, 3).Value
For i = UBound(Data1) To 1 Step -1 'お尻から検索
If Data1(i, 1) = "相沢" Then 'C列検索値
If Data2(i, 1) = 24 Then 'F列検索値
r.Item(i).Resize(, 4).Select
MsgBox "ここに見つかりました"
Exit Sub
End If
End If
Next
MsgBox "見つかりませんでした"
End Sub
|
|