表のデータからある範囲の集計をしたい

質問

1）Excel2007＆windows7を使いマクロ作成中の初心者です。
2）シートに毎月データを追加入力し、年で締め切る表を作成しています。
3）表はF列からL列まで、6行目から580行（毎月変動）ぐらいの表です。
4）Ｈ列には、Ａ部門、Ｂ部門、Ｃ部門のいずれかの文字列が入ります。
5）Ｊ列には、平成２７年１月から１２月までの年月が入ります。
6）Ｋ列、Ｌ列には数値が入力されます。
以上が、毎月作成する表の概要です。
そして、やりたいことは、この表に基づいて、例として、２７年１月の表示される行の中の
Ａ部門のＫ列の合計、Ｂ部門のＫ列の合計、Ｃ部門のＫ列の合計を知りたいことと、
Ａ部門のＬ列の合計、Ｂ部門のＬ列の合計、Ｃ部門のＬ列の合計を知りたいです。
この、合計の結果を、他のシートに表示したいです。
Excel関数でもExcel VBAでも、やりたいこと出来れば、どちらでもいいです。
=SUMIF(C17:C29,"Ａ部門",F17:F29)
同一シート内で上の関数を、利用できますが、これに２７年１月だけで集計したいです。
また、他のシートの中に表示したいです。どうしたらよろしいか教えてください。

回答No.1

imogasi · ベストアンサー

丁寧なのは良いとして、質問文が長く、メモを取って整理しないと内容が理解できなかった。
下記を補足してください。
ーー
明確でない点は
・原データシートは月別（他の月分のデータは混じらない）で別シートになるのか。
・年間では１２か月分１２シートがあるのか。
・集計項目（A、B、Cごと）の月別シートは独立して作るのか。
・年合計はシートに作るのか。
など、はっきり判らなかった。
ーー
月別データ１シートであれば、部門別（A,B、C別）の合計計数は=SUMIF(C17:C29,"Ａ部門",F17:F29)でよいし、
他の月が混じっていても、SUMIFS関数（２００７より増えた）で（月別、部門別）区分して合計できるだろう。
ーー
コピー貼り付けなどの作業は必要かもしれないが、普通に関数を利用して、達成できるのでは。
VBAを持ち出すまでもないと思う。
関数、VBAのどちらでもよいといっても、回答者の問題でなく、受け取る側の質問者のVBAの勉強や経験による。
質問者は、試験問題の出題者の先生のような立場ではない。
この程度の課題ならエクセル関数の初歩的景観でできるのでは。
「あくまで質問者がやるのだ」という前提で、できない（行き詰まった）、むつかしい点があれば、そこを重点にして質問を記述し、質問すべきだ。自分でやろうとせず、丸投げ的に回答者を使おうというように見える。
質問者がエクセルVBAの中級にでもならなければ、手作業の多少の面倒さは辛抱せざるを得ないだろう。
ーー
＞２７年１月だけで集計したいです
２月分のデータも混じっているということ？
月を超えても同一シートにデータを入力しているのか。
SUMIFS関数ではだめか。
ーー
VBAでも関数（ワークシート関数という。SUMなど）つかえる。
例データ　
B、C列
A 1
A 2
B 3
C 2
A 3
B 4
A 5

11　＜ーーAだけの合計
コード
２行下同列に合計を出す場合
Sub test01()
r1 = Sheets("Sheet1").Range("B1000").End(xlUp).Row
Sheets("Sheet1").Range("C" & r1 + 2) = Application.WorksheetFunction.SumIf(Range("B1:B" & r1), "A", Range("c1:C" & r1))
End Sub

補足

説明が下手で申し訳ございません。
データシートには以下のように入力されます。

２７年１月　Ａ部門　60　　100
２７年１月　Ａ部門　66　　112
２７年１月　Ｂ部門　50　　212
２７年１月　Ｃ部門　75　　515
以下１２月までデータ入力します。
各部門の月当たり行数は30から60ぐらい使用します。
この1枚のデータから別のシートに計算結果の表を表示したいです。
以下のように。
　　　　　Ａ部門　　　　　Ｂ部門　　　　Ｃ部門　　　ＡＢＣ合計
27年1月　　1250　　　　　6250　　　　　5620　　　　13120
27年2月　　2250　　　　　3250　　　　　1020　　　　　6520
以下12月まで・・。既にデータの入力済みのものは、計算結果を表示したいです。