excel 複数ブック・シートからのデータ抽出

質問

下記画像の日報を集計したいのですが、ご教授お願いします。

『1月～12月』というブックの中に、『1日～31日』というシートを作成し日報管理を行っています。
すでに『1月～12月』というブックは作成されているので、そちらはいじらずに、その内容を「作業内容集計」という一つのブックに集計したいと思っております。

単価の列に金額が入っていた場合に、行全体を抽出し、一年分を一つのシートにまとめたいのですが可能でしょうか？

おそらくマクロでないと無理だと思うのですが、関数でも、こんな方法があると教えていただける方がおられればうれしく思います。

excelは2003～2010という混在の環境ですが、とりあえずexcel2010で集計できれば良いと考えています。

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

回答No.3

noname#192382 · ベストアンサー

回答2に誤りがありましたので訂正させてください。
For shtno=1 to 12
というところが2箇所ありますが、これを一応
For shtno=1 to 31

と訂正してください。ただし、ブック(月)が違えば日数(シート数)も違ってきますので、そこはうまく整合ととってください。つまり、ブック1はシートは31、ブック2は28か29、ブック3は31、ブック4は30といった具合に。

お礼

ありがとうございました。
整合性をとり、少しアレンジした所、うまく集計できました。

回答No.2

noname#192382

回答1に誤りがありましたので、プログラムを差し替えさせてください。回答1で注記したことはこの回答にも適用です。

Static gyo As Integer, my3gyo As Integer, tanka As Variant, shtno As Integer, myrange As Range, endno As Integer
my3gyo = 2
Workbooks.Open "Book1.xls": 'Book1です

For shtno = 1 To 2
Workbooks("Book1.xls").Activate
Worksheets(shtno).Activate
endno = Cells(Rows.Count, 18).End(xlUp).Row
For gyo = 17 To Cells(Rows.Count, 18).End(xlUp).Row
Workbooks("Book1.xls").Activate
Worksheets(shtno).Select
Range(Cells(gyo, 1), Cells(gyo, 23)).Activate
Selection.Copy
Workbooks("Book3.xls").Activate
Range(Cells(my3gyo, 1), Cells(my3gyo, 23)).Activate
ActiveSheet.Paste
Worksheets(1).Cells(my3gyo, 24) = my3gyo
Worksheets(1).Cells(my3gyo, 26) = shtno
Worksheets(1).Cells(my3gyo, 27) = gyo
Worksheets(1).Cells(my3gyo, 28) = endno
my3gyo = my3gyo + 1
Next
Next

Workbooks.Open "Book2.xls": 'Book2です

For shtno = 1 To 2
Workbooks("Book2.xls").Activate
Worksheets(shtno).Activate
endno = Cells(Rows.Count, 18).End(xlUp).Row
For gyo = 17 To Cells(Rows.Count, 18).End(xlUp).Row
Workbooks("Book2.xls").Activate
Worksheets(shtno).Select
Range(Cells(gyo, 1), Cells(gyo, 23)).Activate
Selection.Copy
Workbooks("Book3.xls").Activate
Range(Cells(my3gyo, 1), Cells(my3gyo, 23)).Activate
ActiveSheet.Paste
Worksheets(1).Cells(my3gyo, 24) = my3gyo
Worksheets(1).Cells(my3gyo, 26) = shtno

Worksheets(1).Cells(my3gyo, 27) = gyo
Worksheets(1).Cells(my3gyo, 28) = endno
my3gyo = my3gyo + 1

Next
Next

'
End Sub

回答No.1

noname#192382

『1月～12月』というブックは作成されているので
、『1日～31日』というシートを作成し
>>

回答いたします。ただしブックの名前をBook1.xls,Book2.xlsなどとしております。また集計用のブックはBook13.xlsとしております。シート名はこだわりませんがただプログラムでは並びの左から1,2、と取り扱います。
下のマクロのプログラムにはBOOK2までの分しか書いていませんので、それからあとはうえにならってご自分で書いてください。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2013/3/13 ユーザー名 :
'
Dim gyo As Integer, my3gyo As Integer, tanka As Variant, shtno As Integer
my3gyo = 2
Workbooks.Open "Book1.xls": 'Book1です
For shtno = 1 To 12
Worksheets(shtno).Activate
For gyo = 17 To Cells(Rows.Count, 1).End(xlUp).Row
Workbooks.Open "Book1.xls"
tanka = Cells(gyo, 18)
Workbooks("Book13.xls").Activate
Worksheets(1).Cells(my3gyo, 18) = tanka
my3gyo = my3gyo + 1
Next
Next

Workbooks.Open "Book2.xls": 'Book2です
For shtno = 1 To 12
For gyo = 17 To Cells(Rows.Count, 1).End(xlUp).Row
Workbooks.Open "Book2.xls"
tanka = Cells(gyo, 18)
Workbooks("Book13.xls").Activate
Worksheets(1).Cells(my3gyo, 18) = tanka
my3gyo = my3gyo + 1
Next
Next

'
End Sub