Excelで予算データを並べ替える方法

2010/12/11 17:12

このQ&Aのポイント

Excelでシート全の予算データを手作業で並べ替えるのは面倒です。そこでマクロを使って自動化する方法を紹介します。
シート全には１課と２課の予算データがバラバラに存在し、毎月異なる予算Ｎｏがあります。マクロを使えば、予算Ｎｏで自動的に並べ替えることが可能です。
マクロを組むことで、Excel上でシート全に貼り付けた後、予算Ｎｏ毎に自動的に並べ替えることができます。マクロ初心者でも簡単に実行することができます。

jyurymicke
お礼率36% (30/83)

オフィス系ソフト
回答数3
ありがとう数1

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

MackyNo1
ベストアンサー率53% (1521/2850)

2010/12/11 18:05 回答No.1

このような集計ではエクセルの標準機能であるピボットテーブルを利用されることをお勧めします。エクセルのバージョンが記載されていないので一般的な操作で説明すると、行フィールド（行ラベル）に伝票番号、データフィールド（Σ値）に金額を配置して、行フィールドの表示データで表示項目にチェックを入れてください。データ数に変動がある場合は、ピボットテーブルウィザードでリスト範囲を指定するときに、リスト範囲を大きめに設定し、ピボットテーブルで表示される「空白セル」を右クリックから「表示しない」設定にしてください（その他の集計行なども必要なければ右クリックから「表示しない」にしてください）。＃Officeソフトはバージョンによって使用できる機能や操作方法が大きく異なりますので、質問の際にはバージョンを明記するようにしましょう。

質問者

お礼 2010/12/12 12:09

ピボットテーブル、頑張ってみます。ありがとうございました。色々あるんですね。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

kagakusuki
ベストアンサー率51% (2610/5101)

2010/12/11 20:46 回答No.3

　シート全のデーターをそのまま残すのであれば、関数でも可能ですが、マクロでなければならない理由が何かあるのでしょうか? 　例えば、各シートのA列に予算Ｎｏ、B列に金額のデーターが入るものとします。　まず、シート１課のA列おける、最も若い予算Ｎｏ（例では１００）を表示させるセルに、次の数式を入力して下さい。 =IF(ROWS(D$1:D1)>COUNTIF(シート全!$A:$A,"<"&200),"",SMALL(シート全!$A:$A,ROWS(D$1:D1))) 　次に、上記の数式を入力したセルの右隣のセルに、次の数式を入力して下さい。 =IF($A2="","",VLOOKUP($A2,シート全!$A:$B,2,0)) 　次に、シート２課のA列おける、最も若い予算Ｎｏ（例では2００）を表示させるセルに、次の数式を入力して下さい。 =IF(ROWS(A$1:A1)>COUNTIF(シート全!$A:$A,">="&200),"",SMALL(シート全!$A:$A,ROWS(A$1:A1)+COUNTIF(シート全!$A:$A,"<"&200))) 　次に、上記の数式を入力したセルの右隣のセルに、次の数式を入力して下さい。 =IF($A2="","",VLOOKUP($A2,シート全!$A:$B,2,0)) 　次に、これらの数式を入力した各セルをコピーして、そのセルよりも下方にあるセル範囲に貼り付けて下さい。　後は、シート全にデータを入力するだけで、データが自動的にシート１課、シート２課に振り分けられて、予算Ｎｏの若い順に表示されます。

ログインすると、全ての回答が全文表示されます。

mu2011
ベストアンサー率38% (1910/4994)

2010/12/11 18:16 回答No.2

どこをマクロ化したいのかわかりませんが、全データシートから課別シートに振り分けしたいのならば、マクロ記録で「フィルタオプションの設定」操作を記録しては如何でしょうか。蛇足ですが、この操作を利用する場合、見出し行を作成して下さい。又、検索条件でコードが数値の場合は、例えば１課の場合、AND条件で>=100、<200を設定、文字列の場合、1*の設定で良いと思います。