Excel VBA質問箱 IV

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

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


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

26786 / 76732

←次へ　｜　前へ→


	【55272】データの抽出

yasu - 08/4/25(金) 14:04 -


	引用なし

	パスワード

いつも参考にさせていただいております。
よろしければ知恵をお借りしたいです。

今回の状況
シートが「検索」「クエリ」の2シートがあり、「クエリ」には、
以下のようなIPアドレス、名前、機種、サーバ一覧があります。
A　　　　　　　　B　　　 C　　　　　D
xxx.xxx.xxx.xxx　佐藤　　windows　　server1群
xxx.xxx.xxx.xxx　佐藤　　windows　　server2群
xxx.xxx.xxx.xxx　田中　　Mac　　　　server3群
xxx.xxx.xxx.xxx　田中　　windows　　server1群
xxx.xxx.xxx.xxx　佐藤　　Mac　　　　server1群

今、行いたい作業は検索シートのD4に入れた文字で、クエリシートで検索した
結果を検索シートのD7にペーストしたいです。
贅沢言えばD4に入れた検索文字列は大抵B列のものでヒットするので、ヒットした
行のD列の結果をD7に出したいです。

絶対値なら→「VLOOKUP(D4,クエリ!A2:D586,4,0)」で出来るのですが、
B列の絶対値のみで、佐藤を全部検索できません。

マクロの記録で、検索シートD4コピー→クエリシートで全体選択→ctrl+fでペースト
→全てを検索→出力結果を全て選択→検索windowを閉じてコピー→検索シートD7にペースト。
で、以下の様に出来ましたがうまくいかなく皆様の知恵をお借りしたいです。
------マクロ--------------------------------
Sub test1()
　　Sheets("検索").Select
　　Range("D4").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("クエリ").Select
　　Application.CutCopyMode = False
　　Selection.Copy
　　Sheets("検索").Select
　　Range("D7").Select
　　ActiveSheet.Paste
End Sub
--------------------------------------------
マクロをみると「全てを検索」「出力結果全てを選択」が行えておりません。
計算式では不可能だと思いますのでマクロでどうにかしようと思っています
のでご教授お願いいたします。

1 hits

▼

【55272】データの抽出 yasu 08/4/25(金) 14:04

≪