複数行に渡るセルを1行にまとめることはできますか？

こんにちは。
画像上のような商品仕入れ表があります。
V列に品番、W列は品名、X列は規格（色など）、Y列は価格、W~AFは卸先にそれぞれ発送した数です。同じ品番（商品）でも規格が複数あるため、規格の数分行がわかれてます。
それを下の画像のように同じ品番のものは規格関係無しで1行にまとめたいのです。
違うシートのB列に品番、C列に品名、D列に価格、E~Kは卸先への全規格合計数を入れたいです。
VBAでも関数でも構いませんので教えてくださるとうれしいです。よろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/06/17 16:35

こんにちは！

やり方だけ・・・
元データはSheet1にあり、Sheet2に表示するとします。
↓の画像のように作業用の列を設けるのが簡単だと思います。

Sheet1の作業列AH6セルに
=IF(COUNTIF(V$6:V6,V6)=1,ROW(),"")
という数式を入れ、フィルハンドルでずぃ～～～！っと下へコピーしておきます。

Sheet2のB2セルに
=IFERROR(INDEX(Sheet1!$V:$AF,SMALL(Sheet1!$AH:$AH,ROW(A1)),MATCH(B$1,Sheet1!$V$5:$AF$5,0)),"")
という数式を入れ、D2セルまでフィル＆コピー！

E2セルには
=IF($B2="","",SUMIF(Sheet1!$V:$V,$B2,OFFSET(Sheet1!$V:$V,,MATCH(E$1,Sheet1!$V$5:$AF$5,0)-1)))
という数式を入れ、K2セルまでフィル＆コピー！

最後にB2～K2セルを範囲指定　→　K2セルのフィルハンドルで下へコピーすると
画像のような感じになります。

※　作業列が目障りであれば、遠く離れた列にするか、
非表示にしておきます。m(_ _)m

この回答へのお礼

ありがとうございました。出来ました！とっても助かりました。
以前も質問に答えてくださいましたよね？お世話になりました。あの仕入表も毎日活用してまして、作業効率がめちゃくちゃ上がってます。ありがとうございました！

お礼日時：2015/06/17 22:42

No.2 回答者： tom04 回答日時： 2015/06/17 16:59

No.1です。

たびたびごめんなさい。
投稿後に気づきました。
Sheet1とSheet2の列の並び（北海道～沖縄）が同じであればE2セルの数式はもっと簡単にできました。

E2セルを
=IF($B2="","",SUMIF(Sheet1!$V:$V,$B2,Sheet1!Z:Z))
にして、前回と同じ操作を行ってください。m(_ _)m