Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25353 / 76735

←次へ　｜　前へ→


	【56723】Re:ワークシートをまたがる検索と結果自動入力

Abebobo - 08/7/2(水) 9:06 -


	引用なし

	パスワード

まっつんさんおはようございます。
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

0 hits

▼

【56722】ワークシートをまたがる検索と結果自動入力 まっつん 08/7/2(水) 0:52