EXCELでの検索マクロを作りたいのですが

質問

マクロの初心者です。氏名の検索マクロを作成したいのですが分かりません。
A列:名前　B列:郵便番号　C列：住所　と
名前等のデータを（ランダムに）入力したシート１を作成し、
シート２にシート１の「A列:名前」から性（たとえば青木）で検索して検索ボタン（マクロボタン）を押して該当データを表示させるようにしたいのですが。

回答No.2

misatoanna · ベストアンサー

＃１で書き忘れたことがありました。

Ａ列全体を選択して　Area　という名前を設定しています。

お礼

ありがとうございました。
補足分も出来ました。

補足

ありがとうございます。
私が求めていたのがほぼ完成ですが、１行目に表題（・・住所録）、２行目に各項目を設定したところシート２へ表示できません。
もう少しお知恵をお貸しください。

回答No.1

misatoanna

> シート２にシート１の「A列:名前」から性（姓ですよね。(^^ゞ）で検索して
> 検索ボタン（マクロボタン）を押して該当データを表示させるようにしたい。

様式を次のように仮定します。

　　　　　＜シート１＞　　　　　　　　　　　　　　　＜シート2＞
　　　A　　　　　　B　　　　　C　　　　　　　　　　　A　　　　　B　　　　　C
1　　名前　　郵便番号　　住所　　　　　　　1　　※　　郵便番号　　住所
2　　　　　以下、データ　　　　　　　　　　　　2
3　　　　　　　　　　　　　　　　　　　　　　　　　3
4　　　　　　　　　　　　　　　　　　　　　　　　　4
データは空白行がないと仮定します。
下記マクロは、「名前」欄に、姓・名 が入力されているという前提です。

シート２のA1に検索キー(姓)を入力すると、２行目以下の各項目にデータを表示
するマクロです。

標準モジュールに
'
Sub test()
　　Dim L, i, RNG As Range
　　L = Len(Sheets(2).Range("A1").Value)
　　For Each RNG In Range("Area")
　　　　If RNG.Value = "" Then Exit Sub
　　　　If Left(RNG.Value, L) = Sheets(2).Range("A1") Then
　　　　　　i = i + 1
　　　　　　Sheets(2).Cells(i + 1, 1) = RNG.Value
　　　　　　Sheets(2).Cells(i + 1, 2) = RNG.Offset(0, 1)
　　　　　　Sheets(2).Cells(i + 1, 3) = RNG.Offset(0, 2)
　　　　End If
　　Next
End Sub