エクセルマクロで抽出が可能でしょうか。

シートＡに今年度と昨年度の比較表を作成しています。

シートＢ～シートＥに各項目ごとの昨年度のデータが１月から１２月まで記録されています。
記録は、各シートのセルＤ３～Ｏ３までに１月、２月、３月・・・と月があり、
Ｄ４～Ｏ５８までに各項目の詳細項目データが記録されています。

仮にシートＡのセルＢ５に２月と入力し、ボタンクリックで各シートの昨年度の２月の
データＥ３～Ｅ５８までを、昨年度の各シートのデータ入力の最後尾セルＰ３～Ｐ５８に
抽出し、シートＡに反映したいのですが、マクロでの抽出は可能でしょうか？。

No.1 回答者： ママチャリ 回答日時： 2016/02/23 10:21

>昨年度の各シートのデータ入力の最後尾セルＰ３～Ｐ５８に抽出

一旦、各シートの最後尾に抽出した後に、シートAに反映したいようですが、その理由は何ですか？
各シート最後尾への抽出さえできれば、その先はご自分で対応できるということでしょうか？

No.2 ベストアンサー 回答者： jmuiny 回答日時： 2016/02/23 10:53

>シートＡに反映したいのですが

この部分の説明がないので、各シートのP列に入れる部分だけです。

シートＡのB5セルは、書式をユーザー定義で　0"月"　として数値だけを入力して下さい。
標準モジュールです。

Sub Sample()
Dim tuki As Variant
Dim sh As Worksheet
Application.ScreenUpdating = False
tuki = Worksheets("SheetA").Range("B5").Value
If tuki = "" Then
MsgBox "月が入力されていません"
Exit Sub
End If
For Each sh In Worksheets
With sh
If .Name <> "SheetA" Then
.Activate
.Range(Cells(3, 5), Cells(58, 5)).Copy Destination:=.Range("P3")
End If
End With
Next sh
Application.ScreenUpdating = True
Worksheets("SheetA").Select
End Sub

この回答へのお礼

ご教示ありがとうございました。
希望通りにできました。
活用させていただきます。
また、よろしくお願いいたします。

お礼日時：2016/02/23 16:49