|
まっつん さん おはようございます。
Findで こんな感じで作ってみました。
Sub kensaku()
Dim Mycell As Range
Dim FoundA As Range
Dim FoundB As Range
For Each Mycell In Worksheets("Sheet1").Range("B2:B110")
' ↓ 検索して見つかったセルを、変数FoundA に入れる
Set FoundA = Worksheets("Sheet2").Range("A2:A110").Find(CStr(Mycell.Value))
If Not FoundA Is Nothing Then '入ったかどうかの確認
Mycell.Offset(0, -1).Value = FoundA.Row & "A"
End If
Set FoundB = Worksheets("Sheet3").Range("A2:A110").Find(CStr(Mycell.Value))
If Not FoundB Is Nothing Then
If Mycell.Offset(0, -1).Value = "" Then
Mycell.Offset(0, -1).Value = FoundB.Row & "B"
Else
Mycell.Offset(0, -1).Value = Mycell.Offset(0, -1).Value & "/" & FoundB.Row & "B"
End If
End If
Next Mycell
End Sub
|
|