Excel VBA 金額が入ってる担当者別に集計

質問

お世話になります。

WinXP　Office2007です。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/filter3.htm
こちらを参考に担当別のSheetを作りました。

ところが担当はAでも仕事をAとBでやったので売上が半分という事態が出てきたため、この参考サイトのVBAでは集計漏れが出るようになりました。

表は下記の通りです

会社名 担当者 売上金額 Aさん Bさん Cさん Aさん Bさん Cさん
あ社　　Aさん　100円 10 100円
い社　　Bさん 200円　　5　　5　　　　　 100円 100円　　　
う社　　Cさん　300円　　　　　　　　10　　　　　　　 300円
え社　　Aさん　500円　　4　　3　　　3　　200円 150円 150円
合計　　　　　1,100円　　 　　　　　　　 400円 250円 450円

参考サイトと同じような集計を金額が入っているところでフィルタをかけて別Sheetに担当ごとに分けたいのです。

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

回答No.3

n-jun · ベストアンサー

＃１です。

担当者の列にフィルタをかけるのではなく、個々の担当者名の割合（？）のところで、
空白ではない範囲を抽出していけばいいのでは？

例えばＡさんの列なら、
あ社　　Aさん　100円　10　　　　　　　 100円
い社　　Bさん　200円　5　　5　　　　　 100円 100円　
え社　　Aさん　500円　4　　3　　　3　　200円 150円 150円
が抽出されるはず。

あとは同じ事を担当者分列を変えながら行なうとか。

回答No.2

SePapa

こんにちは。

少し不明点があるのですが、おそらく参考にされたサイトの”データ表”のような一覧から、
本文に記載されたような会社別の仕事担当者別の割合＆金額を
一覧にされたい、と推測しました。

この場合、”データ表”には会社名が必要となります。
そして担当者には会社担当者ではなく、実際に仕事をした仕事担当者を
指定しておき、
各セルにて会社別仕事担当者別に集計すれば解決かと思うのですが
いかかがでしょうか。
見当はずれな回答でしたら申し訳ありません。

補足としまして、設計者の観点から注意事項申しますと、会社名も担当者名も
将来的には同じ名前がでてくる可能性がありますので
コードを付番して、コード別にそれぞれ集計されることをお勧めします。
（データ表に会社コードと担当者コード列を追加し、
そのコード別に集計する）

補足

SePapa様

ご回答ありがとうございます。
まさにそのとおりです。

色々考えたのですが、シートは担当者ごとに固定してしまい、
マクロの記録でフィルタオプションを使用し、行が追加されても大丈夫なようにコードを書き換えるのが一番手っ取り早いでしょうか・・・。

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

回答No.1

n-jun

コードを提示した方が早いのかも知れませんが。

Aさん Bさん Cさん　の10とか5とかって売上金額に対しての割合ですよね。
ならばそこを集計しなくてはダメなのでは？
担当者をフィルタで抽出しても意味ないですよ。（この表の場合なら）

同じ会社でも、
い社　　Aさん　100円
い社　　Bさん　100円
とか担当者毎に分けているなら別ですけどね。

表を変更できないのなら、割合の列とかを利用するしかなさそうな感じです。
（私見ですけど。実際に３人だけなのかも疑問ですが）

補足

n-jun様

ご回答ありがとうございます。
やはり割合の列利用になりますよね。
ずっと担当者で抽出してたものですから（汗
担当者固定でSheetを作って考えた方がよさげですね。

http://oshiete1.goo.ne.jp/qa4613832.html

（私見ですけど。実際に３人だけなのかも疑問ですが）
ス、スルドイです( ..)φ　実際は人数多いです。
前担当者から引き継いだのですがなんだかメチャクチャなExcelでして。
基本手打ちとコピペなので丸1日かかるのですよ・・・・。
毎月やること変わりませんし、基本データは同じなのでなんとか簡単にできるよう頑張ってるところです。