エクセルの各シートのデータを自動的に複写する方法

質問

現在、エクセルでデータの管理を行なっていますが、複数のシートから必要なデータのみ（「郵便」と入れた列）を、特定のシートに複写する方法の計算式をご教示ください。
エクセルデータのシート例示状況は次のとおりです。

(1)　sheet1
　　　　　A 　　 　　　 B 　　 C 　　　 D 　　 　E　　　Ｆ
１　（株）東京　１０００　　５００　２００　　１００　郵便

(2)　sheet2
　　　　　A 　　 　　　 B 　　　 C 　　 D 　　　 E
１　神奈川県庁　５０　　　２０　　１００　　郵便

(3) sheet3（このシートに各シートのデータに「郵便」と入れた業者名だけを順次下のセルに自動複写していく）
　　　A 　　　 　　 B 　　　 C 　　 D 　　 E
１　（株）東京
２　神奈川県庁

このように何とかならないか考えています。誠に申し訳ありませんが、一連の「計算式と手法」をご教示ください。お願いします。
やっぱり「マクロ」しかないですよね。（マクロはかなりの初心者です）
なお、エクセルは２００３です。

重ね重ねお願いします。

回答No.1

piroin654 · ベストアンサー

解決したでしょうか。以下のコードを
Excelの標準モジュールに貼り付け、
マクロの実行で試してみてください。
分からないところがあれば、補足してください。

Sub test3()
Dim R1 As Long
Dim R2 As Long
Dim x As Long
Dim y As Long
Dim wk As Workbook
Dim i As Integer

'Sheetの行の位置の初期化
R2 = 0
Set wk = ThisWorkbook
'シートの選択　インデックスで選別
'Sheet1はSheet(1)、Sheet2はSheet(2)、Sheet3はSheet(3)のような関係
For i = 1 To 2
x = wk.Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row '最終行
y = wk.Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column '最終列

For R1 = 1 To x
If wk.Sheets(i).Cells(R1, y).Value = "郵便" Then
R2 = R2 + 1
wk.Sheets("Sheet3").Cells(R2, "A") = wk.Sheets(i).Cells(R1, "A")
End If
Next R1

Next i

End Sub

お礼

お忙しいところご教示いただきまして、ありがとうございました。
これで、私もマクロのすばらしさと取り組み方を変えなければならないと、改めて痛感しました本当に助かりました。
また、貴重な時間を費やしていただきまして感謝いたします。本当にありがとうございました。