Excelマクロ 選択したセルに対応する文字を設定

質問

A1からA5000までとB1からB5000までにデータが入っているとします。
その、A1からB5000までのデータを配列として収納して、選択したセルでマクロを実行するとA列から検索して対応するB列の値を一つ右のセルに挿入するマクロを作りたいと思います。
このようなマクロを作るには、

１．データを収納するマクロ
２．検索して出力するマクロ

を作る必要があると思うのですが、どのような方法で実現するのがよいでしょうか？

回答No.1

kybo · ベストアンサー

「A1からB5000までのデータを配列として収納して」は特に必要ありません。
アクティブセルに入力されている値をA列から検索して、アクティブセルの隣のセルにB列の値を表示します。

Sub macro()
Dim R As Range
Set R = Range("A1:A5000").Find(ActiveCell.Value, Range("A1"), , xlWhole)
If Not R Is Nothing Then
ActiveCell.Offset(, 1).Value = R.Offset(, 1).Value
End If
End Sub