エクセルで合致する数字の検索

質問

エクセルで合致する数字を素早く検索したいです。

例えば、Ａ２～Ａ５００００に重複していない数字(桁数色々)が入っている場合、Ｂ１にＡ列の数字をどれか１つ入力すると、その一致する一行だけ表示するような方法はありますか？

フィルタを使うには検索数が多すぎて大変なので、このような検索ができるか教えて下さい。

回答No.1

ssfja

A1:A50000 にオートフィルタを設定済みという前提です。
次のマクロをシートモジュールのコードに貼り付ければ、
フィルタによる選択操作を自動化できます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False, xlA1, False) = "B1" Then
If Target.Value = "" Then
Range("A1").AutoFilter Field:=1
Else
Range("A1").AutoFilter Field:=1, Criteria1:=Target.Value
End If
End If
End Sub

補足

回答ありがとうございます。完璧にしたいことができました。

もうひとつ教えて下さい。
今回はA１～A50000でしたが、替わってC3～C50000内の数字を
D２～N2のどこでも選択できるようにするにはマクロを
どのように変更したらよいのでしょうか？