Excelで行と列のデータの入れ替え

月　　　2005年1月 / 2005年2月 ・・・・ 2005年12月
営業所　　　A 　　B 　C
売上　　200 100 150
上記のデータを
↓
月　　　2005年1月
営業所　A
売上　　100
月　　　2005年2月
営業所　B
売上　　200

のようにデータを置換えたいと思っております。横に続くデータを縦に置き換える方法はありますか？データ量が多く、簡単にできないでしょうか？アドバイスをお願い致します。

No.4 ベストアンサー 回答者： imogasi 回答日時： 2006/06/02 11:20

Ｓｈｅｅｔ１にデータがあるとして、Ｓｈｅｅｔ２のB１に

=INDEX(Sheet1!$B$1:$X$3,MOD(ROW()-1,3)+1,INT((ROW()-1)/3)+1)
と入れて、下方向に式を複写する。＄Ｘ＄３のＸはデータの有る最右列を指定してください。
A列は
月　　　
営業所　
売上
をＡ１：Ａ３に入れておいて、Ａ３で＋ハンドルを出し、下に引っ張ればよい。または複写を使う。
日付書式は
ＣＴＲＬを押しながら、３行おきにセルを選択し、日付書式を設定するよりほか無いかな。
いや、Ｂ１：Ｂ３に日付、文字列、数の書式を設定し、Ｂ１：Ｂ３をコピーし、Ｂ４以下のＢ列に、書式の貼り付けでできそう。
ＶＢＡなら１発でできるが。

No.3 回答者： mike_g 回答日時： 2006/06/02 10:55

どうせ縦に「置き換える」なら、そして、可能なら、次のようにすることをお奨めます。

月　　　　　営業所　売上
2005年1月　 A　　　　200
2005年2月　 B　　　　100
・・・・・　・　　　　…
2005年12月　C　　　　150

No.2 回答者： mshr1962 回答日時： 2006/06/02 10:41

3行×複数列のデータを縦１列にするのでいいのですか？

直接の入れ替えは無理なので
上記がSheet1ならSheet2で
A1=OFFSET(Sheet1!$A$1,MOD(ROW()-1,3),(ROW()-1)/3)
として下方にコピー
※ただし月が日付データの場合は、A3までコピー後にA1に日付の表示形式を設定して、A1:A3の3行をコピーしてください。

No.1 回答者： gucchi-you 回答日時： 2006/06/02 10:28

編集⇒コピーの後、貼り付ける時に、形式を選択して貼り付け⇒行列を入替える（右下にあります）