再度・・・エクセル 検索・抽出マクロを教えて下さい

質問

（画像が添付されてなかったので、同じ質問をします）

項目が同じで内容の違う、膨大な量のエクセルデータが9シートあります。

会社で決められた『記号』列のひとつの値を、9シートのデータ全て検索して、
シートにまとめる作業をすることになりました。

(1)抽出表示するのはシート1で、シート2～シート10に、項目が同じ検索データがあります。
(2)抽出シート1のB3に、検索する『記号』を入れると、
　　D2から右に項目、
　　D3から右には、シート2からシート10のデータが
　　シートごとに追加されて出るようにします。

今までやった検索・抽出は、1シートづつで、今回のように　何シートにも渡るものは初めてです。

ご回答を　おまちしております。
よろしくおねがいします。

回答No.1

KURUMITO · ベストアンサー

例えば次のようなマクロにします。

Sub データの統合()

Set WS1 = Worksheets("Sheet1")
Dim RowPos As Long
Dim Gyou As Long
Dim i As Integer
RowPos = 3
Gyou = 2
For i = 2 To 10
Worksheets("Sheet" & i).Select
With Worksheets("Sheet" & i)
Do
Gyou = Gyou + 1
If .Cells(Gyou, 2) = WS1.Range("A3").Value Then
.Range(.Cells(Gyou, 2), .Cells(Gyou, 7)).Copy
WS1.Activate
WS1.Cells(RowPos, 4).Select
ActiveSheet.Paste
RowPos = RowPos + 1
End If
Loop Until .Cells(Gyou, 2) = ""
End With
Gyou = 2
Next

End Sub

シート１０まであるとしています。

お礼

ありがとうございます！

できました（＾▽＾）
一瞬で　風のように表示されました。

マクロは　非常に難しいです・・・・ゆっくり勉強していきます。

教えて下さって、感謝です。