|
Jカーターさんありがとうございます。
初心者の私にとって、ただ教わった通りにしか出来ません
以下のように書き換えました。
実際のデータはこの様になっています(sheet1)
A B C D E F
2 番号 名前 読み 電話番号 郵便番号 住所
3 101 佐藤○雄 サトウ 03-11-211 114-0124 東京都港区・・・
4 102
sheet2 のA2に 101 を入力してマクロを実行すると、101のデータだけではなく
102〜610 位まで全て表示します。別の番号を入れても結果は同じです。
また名前で検索するにはどうしたらいいでしょうか。
よろしくお願いします。
Sub search_dat()
Dim rng As Range
With Worksheets("data")
Set rng = .Range("A2", .Cells(.Rows.Count, 6).End(xlUp))
End With
With Worksheets("search")
.Range("A5", .Cells(.Rows.Count, 6).End(xlUp)).ClearContents
rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("A5:F5"), Unique:=False
End With
Set rng = Nothing
End Sub
|
|