Ｅｘｃｅｌ：縦に並んでるセルを横に移動させるには？？

質問

Excelについて教えて下さい。
3000人の氏名が入ったデータがあります。
その3000人がそれぞれ様々な資格持っていて、各人に対して資格名称が縦に入っています。
資格一つにつき一行使用しているので、同じ氏名がいくつも出てきてしまうのです。
これを、氏名は一つにして、資格名称と取得年月日を横一列に並べたいというわけです。

＜例＞
氏名　 資格名　　　　 取得年
Aさん　秘書検定1級　　2000年
Aさん　1級建築士　　　2005年
Bさん　社労士　　　　 2001年　
Bさん　衛生管理士　 　1999年
Bさん　公認会計士　　 2000年
Cさん　普通運転免許 2005年

↓

氏名　 資格名　　　　　取得年 　　資格名　　　 取得年
Aさん　秘書検定1級　　2000年　　1級建築士　　2005年
Bさん　社労士　　　　 　2001年　　衛生管理士 　1999年
Cさん　普通運転免許 2005年

便利な関数などないでしょうか？
どなたか分かる方、ご返信お願いします！

回答No.1

zap35 · ベストアンサー

本当はマクロで行うべきだと思いますが、関数とオートフィルタで実現します。ただし質問の例にあるように氏名でソートされていることを条件とします。（されていない場合は先にソートして下さい）

Ｄ２（二つめの資格名欄）に
　=IF($A2=OFFSET($A2,INT((COLUMN()-2)/2),0),OFFSET($B2,INT((COLUMN()-2)/2),0),"")
Ｅ２（二つめの資格取得年欄）に
　=IF($A2=OFFSET($A2,INT((COLUMN()-2)/2),0),OFFSET($C2,INT((COLUMN()-2)/2),0),"")
の式をそれぞれペーストします。

Ｄ２：Ｅ２を下方向にずっとコピーします。更にＤ：Ｅ列をコピーし、Ｆ：Ｇ、Ｈ：Ｉ…列に貼りつけます。

すると各人が出現する最初の行には全資格が横に並びますので、あとは「データ」→「フィルタ」→「フィルタオプション」で「重複データを無視する」にチェックすると希望のリストになると思います。

あとはコピーして「値」として別シートに貼りつけるなりどうぞ

お礼

ありがとうございました！
とても役に立ちました。
また機会があればよろしくお願い致します。