|
いつも参考にさせていただいております。
よろしければ知恵をお借りしたいです。
今回の状況
シートが「検索」「クエリ」の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
--------------------------------------------
マクロをみると「全てを検索」「出力結果全てを選択」が行えておりません。
計算式では不可能だと思いますのでマクロでどうにかしようと思っています
のでご教授お願いいたします。
|
|