エクセル：一覧から表へ転記するには

質問

初めて質問します。エクセルでこんな感じに入力した一覧表から自動的に別シートの表へ落とし込みをしたいと思いますがどうしたらできるのでしょうか？
Sheet1：入力一覧表
　　　A　 　：B　　　　　：C　　　：D
１：受注月　：営業ランク ：物件名 ：台数
２：2009/8　：確定　　　 ：○×▲ ：100
３：2009/7　：AAA　　　　：□◇　 ：250
４：2009/7 ：確定　　　 ：◎□▲ ：350
５：2009/7　：確定　　　 ：○◇× ：200
６：2009/8　：AA 　　　　：◎×▲ ：500
７：2010/1　：A　　　　　：×□○ ：120
～～～以後同じように続く。

Sheet２：山積一覧表
A 　：B　　 ：C　　 ：D　 　：E ：F　　 ：G 　：H～
１：月 　：確定　：確定　：AAA 　：AAA ：AA　　：AA　　：～B　
２：月 　：物件名：台数　：物件名：台数 ：物件名：確定　：～　　
３：７月 ：　　　：　　　：　　　： ：　　　：　　　：～
４：　　 ：　　　：　　　：　　　：　　 ： ：　　　：～
５：　　 ：　　　：　　　：　　　：　　 ：　　　：　　　：～
７：８月 ： ：　　　：　　　：　　 ： ：　　　：～
８
～以下同じ様に空欄がいくつか作ってあります。
これを
A 　：B　　 ：C　　 ：D　 　：E ：F　　 ：G 　：H～
１：月 　：確定　：確定　：AAA 　：AAA ：AA　　：AA　　：～B　
２：月 　：物件名：台数　：物件名：台数 ：物件名：確定　：～　　
３：７月 ：○◇×：200 　：□◇　：250　：　　　：　　　：～
４：　　 ：◎□▲：350 　：　　　：　　 ： ：　　　：～
５：　　 ：　　　：　　　：　　　：　　 ：　　　：　　　：～
７：８月 ：○×▲：100 　：　　　：　　 ：◎×▲：500 　：～
８～
という形にしたいと思います。どのようにしたらいいでしょうか？
空欄は各月７行～８行空けています。
一覧表の月は会社の年度で2009/７月～2010/６月までとなっており
ます。また１ページに上半期を入力しています。

もう１つ質問があります。例えばBとCでワンセットのセルが７行
作ってありますがそれ以上の受注物件が上がった場合DとFの行にも
実際は枠があります。BとCの空欄が埋め尽くされた場合、CとDの
空欄を埋めていくといったことができるのでしょうか？
これ以上列は現実的に増えないです。

何卒回答をお願いします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.2

135ok

一例です。
添付資料を参照ください。

sheet1
Ａ、Ｂ列に作業列を作る。
Ｂ、Ａ列の順で説明。
Ｂ２　=MONTH(C2)&"月"&D2
　　　*受注月から月を検索し、月と営業ランクをつなげる。
Ａ２　=COUNTIF($B$2:B2,B2)&B2
　　　*Ｂ２の文字がＢ列に何個あるか検索し、番号をふりＢ２とつなげる。

sheet2
Ａ列に作業列を作る。
Ａ３　=COUNTIF($B$3:B3,B3)
　　　*Ｂ３の文字がＢ列に何個あるか検索し、番号をふる。
Ｃ３　=IF(COUNTIF(Sheet1!$A$2:$A$8,$A3&$B3&C$1),VLOOKUP($A3&$B3&C$1,Sheet1!$A$1:$F$9,5,0),"")
　　　*Ａ３、Ｂ３、Ｃ１のつなげた文字がsheet1Ａ列にある場合、sheet1の表から値を表示、以外は空欄。
Ｄ３　=IF(COUNTIF(Sheet1!$A$2:$A$8,$A3&$B3&D$1),VLOOKUP($A3&$B3&D$1,Sheet1!$A$1:$F$9,6,0),"")
　　　*Ｃ３をコピーし、VLOOKUP($A3&$B3&D$1,Sheet1!$A$1:$F$9,●,0)の●の部分を５から６に変える。

Ｃ３、Ｄ３の２つのセルをコピーし、表示させたい範囲にコピー。

sheet2の表示方法は、sheet1の入力順に値を表示。

お礼

早速の回答ありがとうございます。まずためしてみます。ありがとうございました。

回答No.1

rivoisu

VBAでの処理しかも（かなり面倒な）ここで回答できるような内容でもないと思います。
結果の表もちょっと矛盾があるように思います。

お礼

素人投稿でうまく伝えられなくてすみません。結果の表に対しての矛盾
について上手に説明できていないところから来ていると思います。できれば矛盾の内容を説明いただけるとありがたいです。明日にでも矛盾に対し説明し、画像を添付して質問をしなおしたいと思います。ご回答ありがとうございました。