Excel VBA質問箱 IV

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

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


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

71225 / 76732

←次へ　｜　前へ→


	【10003】Re:該当する住所データを抽出

igusukei - 03/12/29(月) 8:45 -


	引用なし

	パスワード

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