エクセル 列と複数行の入れ替え

よろしくお願いします。
Win XP　　Office2003　使用です。

下記（１）のようなデータを下記（２）のように置き換えるにはどうしたらよいでしょうか？

（１）元データ
A1　会社名
A2　売上
A3　昨年比
A4　備考
A5　会社名
A6　売上
A7　昨年比
A8　備考
（ここでは４つの項目が繰り返される状態）

（２）変換したい状態
A1　会社名　　B1　売上　　C1　昨年比　　D1　備考
A2　会社名　　B2　売上　　C2　昨年比　　D2　備考

数字データもあり、これは後日計算や修正等も行いますので
元データからの＝A2（もしくはマクロ）　等で入れてあると問題が生じます。

■置き換える方法はありますか？
■＝データコピーやマクロなどを使用した場合、表示されている数字を
　セルに固定することは出来ますか？

No.1 ベストアンサー 回答者： higekuman 回答日時： 2008/11/12 12:59

いくつかやり方はあると思いますが、一つのやり方を。

B1に
　=IF(MOD(ROW(),4)=1,A2,"")
C1に
　=IF(MOD(ROW(),4)=1,A3,"")
D1に
　=IF(MOD(ROW(),4)=1,A4,"")

と記入し、下にコピーします。
すると、

A1　会社名　B1　売上　　C1　昨年比　　D1　備考
A2　売上
A3　昨年比
A4　備考
A5　会社名　B5　売上　　C5　昨年比　　D5　備考
A6　売上
A7　昨年比
A8　備考

となります。

そして、すべてを選択してコピーをし、同じ場所に、形式を選択して貼り付けで、値を貼り付けると、数式がすべて値で上書きされます。

その後、オートフィルタで、A列以外のどれかの列で、空白以外のセルを選ぶと、

A1　会社名　B1　売上　　C1　昨年比　　D1　備考
A5　会社名　B5　売上　　C5　昨年比　　D5　備考

という状態になります。

そして、データ範囲を選択してコピーして、別の場所(別のシート)に貼り付けると、
A1　会社名　B1　売上　　C1　昨年比　　D1　備考
A2　会社名　B2　売上　　C2　昨年比　　D2　備考

になります。

この回答へのお礼

ありがとございます。
いけそうです。

お礼日時：2008/11/12 13:35

No.2 回答者： gisahann 回答日時： 2008/11/12 13:06

マクロはちと分かりません。

全体を文字列と仮定して、「範囲を選択」→右クリック
「形式を選択して貼り付け」を選び、「行列を入れ替える」に
チェックを入れ、演算しないを確認、貼り付け位置を指定、
ＯＫで文字・数値は移動出来ますが。

この回答へのお礼

ありがとうございます。
なるほど！！

お礼日時：2008/11/12 13:35