別のシートにデータを分けて並べるには

質問

このような訪問予定表をつくっています。
[D]は営業所で[E]は顧客IDです。
[A]　[B]　[C]　 [D]　[E]
1]1/1　AM　　　　 渋谷　a
2]1/2　AM　10:00　新宿　b
3]1/1　AM　11:00　銀座　c
4]1/2　PM　　　 銀座　d
5]1/1　PM　13:00　新宿　e
6]1/1　PM　　　 新宿　f
7]1/2　AM　 9:00　渋谷　g
8]1/2　AM　　　 新宿　h
9]1/2　AM 　9:00　新宿　i

これを今までは手作業で、以下のSheet2に移行していました。
[I]列までしかありませんが、15日分が右方向にに連続しています。
見苦しいですが、A列は営業所名、B・D列は時刻、C・E列は顧客IDです。
＿＿[A]＿[B]＿[C]＿[D]＿[E]＿[F]＿[G]＿[H]＿[I]＿
1]＿＿｜＿＿　12/1　＿＿＿｜＿　12/2＿｜＿＿＿＿
2]＿＿｜　AM　＿｜PM＿＿＿｜AM＿＿＿＿｜PM＿＿＿
3]新宿｜＿＿＿＿｜13:00＿e｜＿＿＿　h ｜＿＿＿＿
4]＿＿｜＿＿＿＿｜＿＿＿ f｜10:00　 b ｜＿＿＿＿
5]＿＿｜＿＿＿＿｜＿＿＿＿｜ 9:00　 i ｜＿＿＿＿
6]＿＿｜＿＿＿＿｜＿＿＿＿｜＿＿＿＿＿｜＿＿＿＿
8]銀座｜11:00　c｜＿＿＿＿｜＿＿＿＿＿｜＿＿ d＿
9]＿＿｜＿＿＿＿｜＿＿＿＿｜＿＿＿＿＿｜＿＿＿＿
10]＿＿｜＿＿＿＿｜＿＿＿＿｜＿＿＿＿＿｜＿＿＿＿
11]＿＿｜＿＿＿＿｜＿＿＿＿｜＿＿＿＿＿｜
14]渋谷｜＿＿　a ｜＿＿＿＿｜ 9:00　 g ｜

（以下省略）

これを関数や、VBAで簡単にする方法はないでしょうか？
環境はExcel2000です。わたしはVBAはまだ初心者です。

回答No.2

mu2011

安直ですが、ベ○タ、窓○杜等でスケジュール管理のフリーソフトを探した方が早いのではないでしょうか。

回答No.1

zap35

関数では少しきつそうですね。VBAで作るのが良いと思います。
私も表の形式は違いますが同様のスケジュール管理表を作成して利用しています。私の場合スケジュールを表形式に展開する部分はVBAで行っていますが、大体60行くらいのプログラムになりました。

ただこれだけの情報ではJIL_Sさんが思い描いた通りのプログラムは作れません。やはりご自分で試行錯誤されるしかないでしょう。最初はシンプルな基本動作だけ作って、徐々に便利機能を追加していくと楽だと思います。

具体的に質問を絞っていただければお手伝いは可能ですが…

お礼

ありがとうございます。
会社の隣部署に詳しい人がいて、解決しました。

方法は以下のとおりです。なお、実際のファイルのSheet2の１～１０行は別のデータです。したがって、Sheet2!B11 = 12/1、Sheet2!A13 = 新宿・・・となっています。
Sheet1に非表示セルの列を2つ作ります。
Sheet1!F1　=D1&A1&B1
Sheet1!G1　=(MATCH(D1,Sheet2!$A$13:$A$37,0)+COUNTIF(F$1:F1,F1)+11)*100+((A1-Sheet2!$B$11)*4+IF(B1="AM",0,2)+2)
Sheet2!B13　=INDEX($C$1:$C$9,MATCH(ROW()*100+COLUMN(),$G$1:$G$9,0))
Sheet2!C13　=INDEX($E$1:$E$9,MATCH(ROW()*100+COLUMN()-1,$G$1:$G$9,0))

としました。

自分でもどうしてこうなるのか、まだ理解途中です・・・。
お騒がせして申し訳ありませんでした。