|
▼ひかる さん:
こんにちは。
VBA初心者ということなので、手始めに一般機能の「統合」を
使ってみてはいかがですか?
まず、元表に細工を施します。
B列を挿入して、挿入列に =MONTH(A2) と数式を入れます。↓
A B C D E F
----------------------------------------------
日付 月 会議室 研修室 和室 調理室
4月15日 4月 560 800 1000 500
4月19日 4月 1500 600 5200 1500
5月21日 5月 800 2000 800 2100
5月31日 5月 5000 480 2500 600
6月13日 6月 4500 3600 4800 1600
6月18日 6月 100 3600 8400 2650
6月21日 6月 7000 600 8000 7900
統合後の表を出力したいセルをアクティブにしておいて、
メニュ-[データ]-[統合...]から
統合元範囲に [B1:F8]を指定します(A列は含みません)
統合の基準
上端行
左端列 の両方にチェックを入れ、 [OK]ボタンを押すと、
次のような統合表が出来上がります。
----------------------------------------------
会議室 研修室 和室 調理室
4 2060 1400 6200 2000
5 5800 2480 3300 2700
6 11600 7800 21200 12150
あとは、この範囲をCUT して、別シートに
行列を入れ替えて貼り付けるだけです。
------------------------------------------
4 5 6
会議室 2060 5800 11600
研修室 1400 2480 7800
和室 6200 3300 21200
調理室 2000 2700 12150
( 月の書式 4 → 4月 などは 適宜設定してください)
VBAでこれを半自動でやらせることもできます。
そのばあい、以上の操作をマクロ記録してみてください。
|
|