エクセルでデータを検索する際に・・・・

質問

検索したい文字がSheet1にB列にあります。

検索元のデータは　Sheet2に５行目より１データにつき横２００列ほど項目があるデータが
5000千ほどあります。

検索したい文字は　検索元のデータの３列目（Ｃ列）に存在しています。

これを、Sheet1の検索したい文字の横Ｃ列から　該当データの１列目より返していきたいのですが
VLOOKUPの数式ではテキストで返り、セルに数式が残ってしまうため、
ここを検索元のデータと全く同じ（フォントや数式を含む）データを
抽出し貼付けて返したいのです。

VBAなどでこの検索処理を出来ないでしょうか？

教えてください、よろしくお願いいたしますm(__)m

回答No.3

BLUEPIXY · ベストアンサー

Public Sub SearchAndCopy()
検索範囲 = "sheet2!C5:C5000" '実際の範囲をセット
検索値範囲 = "sheet1!B1:B4000"
For Each x In Range(検索値範囲)
If x.Value <> "" Then ' 検索値がない時はスキップ
Set c = Range(検索範囲).Find(What:=x.Value, lookAt:=xlPart)
If Not c Is Nothing Then
Range(c.Offset(0, -2), c.Offset(0, 198)).Copy '見つかったセルの前２つから２００列をコピー
Range(x.Offset(0, 1), x.Offset(0, 201)).PasteSpecial '検索値のセルの隣から２００列ペースト
End If
End If
Next
End Sub
上記をＶＢＥのThisWorkbookをダブルクリックした処にでも貼り付けて、マクロ実行から実行すればいいです。（あるいは、ボタンに割り当てる）
当初、数式のコピーということだったので、Formulaを使うように書いたのですが、文意からコピー・ペーストだと思うのでそうしました。
検索する値が重複している場合、最初に見つかったものが対象になります。もともとVLOOKUPでやろうとしていることからそういう動作で良いと思います。
範囲などは、実際の範囲に変えて下さい。

お礼

ありがとうございました。
明日職場で試してみたいと思います。
本当に感謝しております！

回答No.2

BLUEPIXY

そのまま実行できるようなものっていうと、もう少し詳しく教えて欲しいのですが、
検索したい文字、sheet1のＢ列は、複数あって、下に延びているのですか、また、これが、検索したい場所に対応した位置にあるのですか。
検索元のデータＣ列は、Ｂ列の中身が文字列の一部になっているとして検索するのですか、それとも、単に一致すればいいのでしょうか。
横Ｃ列から返すデータは、検索したセルを含めて横２００列全て必要なのですか。
内容でなく数式をコピーした場合、シートが変わることになりますが、シートが変わっても大丈夫ですか
できれば、いくつかの具体的な内容を示して、
こうなって欲しいという具体的な内容も示して下さい。

補足

ありがとうございます。

検索したい文字はSheet１のB列に4000程度下に延びています。

検索したいデータは、Sheet２に
A列５行目より１データが横に２００項目あるものが
縦に5000ほどあります。

例：

シート１のB列に「Yamada」とあった場合、
シート２のC列より「Yamada」を含む文字列を検索し
（ですのでセルの一致ではなく文字列を含む一致）
その「Yamada」を含んだセルの横200列のデータ全てを
シート１のC列より、通常に範囲をマウスで指定し、
コピー、貼り付けした結果と同じものを返したいのです。

その際に数式やフォントがそのままコピーされ、
貼りつくことを希望します。
（文字列テキストとして貼りつかないようにしたいのです）
シートが変わっても大丈夫です。

説明不足でご迷惑をおかけいたしました。
もしよろしければ教えてください。
よろしくお願いいたします。

回答No.1

BLUEPIXY

VBAで、数式や入力されている内容をコピーするには、
Range("sheet1!c1").Formura = Range("sheet2!c1").Formula
みたいな感じで書けばいいです。
フォントなどの書式をコピーするマクロは、
[マクロの記録]で[書式のコピー：ハケのアイコン]を使って記録したものを参考にして下さい。
検索については、それぞれのセルを比較とかすればいいですね。
あとは、繰り返すだけです。

補足

ありがとうございます。
すみません、私自身VBAマクロの作成が難しく、
もし出来ればVBAに貼り付けてそのまま実行できるような
ものを教えていただけないでしょうか？

よろしくお願いいたします。