Ｅｘｃｅｌのシートにある１行のデータを複数行に分割したい

質問

例えば次のようなことがしたいのですが、ＶＢＡ以外ではできないでしょうか？
何か方法があったら教えてください。

・A:コード　B:氏名　C:生年月日　D:住所　E:ＴＥＬ　というように横に並んだデータがあるとします。
・一番上の行は標題部分になっており、次の行からデータが縦に１００行分程度あります。
・この１行分のデータを２行(すべてに標題をつけたいので実質は４行)に返還したいのです。
(１行目:標題)A:コード　B:氏名　C:生年月日
(２行目)　標題に対応したデータ
(３行目:標題)D:住所　E:ＴＥＬ　
(４行目)　標題に対応したデータ

これで意味がわかるでしょうか？
よろしくお願いします。

回答No.1

inte-nori · ベストアンサー

データが入っているのがSheet1、処理後のシートがSheet2ということで話を進めます。

Sheet2のA2に以下の式を入れます。

#=Sheet1!A2（#も入力してください）

同様に、Sheet2のB2,C2,A4,B4にもそれぞれ
#=Sheet1!B2
#=Sheet1!C2
#=Sheet1!D2
#=Sheet1!E2
と入力します。

入力が終わったら、入力したセル（３列×４行）を選択し、右下の四角（カーソルが「＋」になる部分）を下までドラッグして（４００行くらい？）コピーします。

その後、入力されているセルの範囲を選択して、「編集」＞「置換」で
「検索する文字列」を「#」、置換後の文字列を空欄で「すべて置換」すれば、出来ると思います。

お礼

できました。
すごいです。
言葉では言い表せないくらいにうれしいです。
ホント助かりました。
この方法でいろいろ応用ができそうです。
本当にありがとうございました。