Excel行毎に項目列数の違う表を行列変換したい

質問

A列に何かしらの名称、B列以降に文字列値があるとします。

鈴木｜あああ｜いいい｜ううう｜
佐藤｜えええ｜　　　｜　　　｜
田中｜ううう｜かかか｜　　　｜
・・・

という表を、
鈴木｜あああ
鈴木｜いいい
鈴木｜ううう
佐藤｜えええ
田中｜ううう
田中｜かかか
・・・

というように変換したいのですが、うまい方法ありませんか？

回答No.1

KURUMITO · ベストアンサー

シート1ではお示しの表がＡ，Ｂ，Ｃ，Ｄ列の2行目から下方に入力されているとします。
Ｅ列を作業列としてＥ1セルには0を入力し、Ｅ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A2="","",COUNTA(B2:D2)+MAX(E$1:E1))

お求めの表をシート2のＡ，Ｂ列の2行目から下方に作るとしてＡ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(INDEX(Sheet1!A:A,MATCH(ROW(A1)-1,Sheet1!E:E,1)+1)=0,"",INDEX(Sheet1!A:A,MATCH(ROW(A1)-1,Sheet1!E:E,1)+1))

Ｂ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(A2="","",INDEX(Sheet1!A:D,MATCH(A2,Sheet1!A:A,0),COUNTIF(A$2:A2,A2)+1))

お礼

関数だけでできるという事に驚きです。ありがとうございました。

回答No.2

noname#208392

せっかく書いてたのに、質問削除しないでよ。

で、本題です。
名前の列を後に続く列の間にはさんでいって、右から２列ずつ表の下に移していったらどうでしょう。
機械的な作業でできますから、VBAで自動化も簡単ですね。

空白行ばかりができるかもしれませんが、第2行でソートすれば空白行だけ集めることができます。そうしてまとめて削除。
最後に第2行でソートすれば出来上がりです。

具体的にはこんな風です。

鈴木｜あああ｜いいい｜ううう｜
佐藤｜えええ｜　　　｜　　　｜
田中｜ううう｜かかか｜　　　｜

鈴木｜あああ｜鈴木｜いいい｜鈴木｜ううう｜
佐藤｜えええ｜佐藤｜　　　｜佐藤｜　　　｜
田中｜ううう｜田中｜かかか｜田中｜　　　｜

鈴木｜あああ｜鈴木｜いいい｜
佐藤｜えええ｜佐藤｜　　　｜
田中｜ううう｜田中｜かかか｜
鈴木｜ううう｜
佐藤｜　　　｜
田中｜　　　｜

鈴木｜あああ｜
佐藤｜えええ｜
田中｜ううう｜
鈴木｜ううう｜
佐藤｜　　　｜
田中｜　　　｜
鈴木｜いいい｜
佐藤｜　　　｜
田中｜かかか｜

以下略

お礼

＞せっかく書いてたのに、質問削除しないでよ。
申し訳ありませんでした。A列とB列以降の違いがわかりにくいかなと思って削除して加筆・再投稿してしまいました。

わかりやすい解説ありがとうございました。参考にさせていただきます。