Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7全般 : 指定なし)
エクセルのデータの入れ替え
投稿日時: 18/03/08 13:55:43
投稿者: take23

Project no.    Date     Name
P001       4/6/2017     Taro Tokyo
P001       4/18/2017     Akira Nagoya
P002       10/9/2017     Kumiko Hiroshima
P002       9/5/2017     Mako Fukuoka
 
上記のようにエクセルに入力されたデータを下記のように並べかえたいのですが、どのようにしたら出来るいでしょうか?
 
Project no.    Date     Name           Date     Name                 
P001       4/6/2017    Taro Tokyo      4/18/2017    Akira Nagoya                
P002       10/9/2017    Kumiko Hiroshima  9/5/2017    Mako Fukuoka     
 
お忙しいところ申し訳ございませんが、何方かご教示ください。

回答
投稿日時: 18/03/08 14:38:03
投稿者: Suzu

横方法へは例では 2件 (1レコード目だと 4/6/2017 Taro Tokyo、4/18/2017 Akira Nagoya)並びますが
 
実データでは、横方法に、何件並ぶ可能性があるのですか?
また
Project no. が 同じで、同 Date のデータは有り得ますか?

投稿日時: 18/03/08 15:00:21
投稿者: take23

早速回答いただきありがとうございます。
実データでは、最大20件ぐらい、横に並びます。
また、Project No.が同じで同じDateのものもあります。
宜しくお願いします。

回答
投稿日時: 18/03/08 15:14:08
投稿者: んなっと

Excelのバージョンを選んでください。
 
Excel2007以降なら
 
   A   B  C   D E   F   G  H   I  J   K  L
1  No. Date 名      No. Date 名 Date 名 Date 名
2 P001  4/6 あ 1+1i   P001  4/6 あ 4/18 い     
3 P001 4/18 い 1+2i   P002 10/9 う  9/5 え 11/5 お
4 P002 10/9 う 2+1i   P003 1/30 か          
5 P002  9/5 え 2+2i                    
6 P002 11/5 お 2+3i                    
7 P003 1/30 か 3+1i                    
 
D2
=IF(A2="","",IMREAL(D1)+(A1<>A2)&"+"&IMAGINARY(D1)*(A1=A2)+1&"i")
下方向・↓
F2
=IFERROR(INDEX(A:A,MATCH(ROW(1:1)&"+*",D:D,0)),"")
下方向・↓
G2
=IFERROR(INDEX($B:$C,MATCH(ROW(1:1)&"+"&INT((COLUMN(A:A)+1)/2)&"i",$D:$D,0),ISEVEN(COLUMN(A:A))+1),"")
右方向・→下方向・↓
 
2007より前のバージョンの時は別の式になります。

投稿日時: 18/03/08 15:19:26
投稿者: take23

できました!!
素晴らしい、ありがとうございます。
お時間を割いていただき、誠にありがとうございました。