[[20110316125718]]　『入力してあるセルの入れ替え？』（裕）　ページの最後に飛ぶ

『入力してあるセルの入れ替え？』（裕）

[sheet1]に縦に入っているデータを[sheet2]で横に変えて表示したいのでが

[seet1]

        [A]         [B]         
        No         内容

[1] 　　 1 　　　　千代田区

[2] 　　 1 　　　　中央区

[3] 　　 2 　　　　港区

[4] 　　 2 　　　　横浜市

[sheet2]

       [A]          [B]          [C]          [D]

[1] 　 1 　　　　千代田区　　　　中央区　　No1の続きがあれば以降に

[2] 　 2 　　　　港区　　　　　　　　横浜市 No2の続きがあれば以降に

上記のようにしたいのですが、よろしくお願いします。
数が多く1つづつやって行ったら大変すぎますので何とか出来ないかと思いまして…

 Sheet1	[A]	[B]
[1]	No	内容
[2]	1	千代田区			
[3]	1	中央区			
[4]	2	港区			
[5]	2	横浜市

 Sheet2	[A]	[B]	[C]	[D]	[E]
[1]	No	内容			
[2]	1	千代田区	中央区		
[3]	2	港区	横浜市		
[4]					
[5]					
 A2=IF(MAX(Sheet1!A:A)<ROW(A1),"",ROW(A1))					
 　→必要行フィルドラッグ					
 B2=IF(OR($A2="",COUNTIF(Sheet1!$A:$A,$A2)<COLUMN(A2)),"",INDEX(Sheet1!$B:$B,MATCH($A2,Sheet1!$A:$A,0)+COLUMN(A2)-1))					
 　→必要範囲にフィルドラッグ

 (HANA)

 衝突。。。

 Sheet2
 A1=IF(COUNT(INDEX(0/(MATCH(Sheet1!A$1:A$100,Sheet1!A$1:A$100,0)=ROW(A$1:A$100)),))<ROW(A1),"",
    INDEX(Sheet1!A$1:A$100,SMALL(INDEX((MATCH(Sheet1!A$1:A$100&"",Sheet1!A$1:A$100&"",0)<>ROW(A$1:A$100))*10^16+ROW(A$1:A$100),),ROW(A1))))
 必要分フィルダウン。

 B1=IF((COUNTIF(Sheet1!$A$1:$A$100,$A1)<COLUMN(A$1))+($A1=""),"",
    INDEX(Sheet1!$B$1:$B$100,SMALL(INDEX((Sheet1!$A$1:$A$100<>$A1)*10^16+ROW($A$1:$A$100),),COLUMN(A$1))))
 必要分フィルライト＆フィルダウン。

 範囲は適当に広げてください。

 (ROUGE)

コメント返信：

[ 一覧(最新更新順) ]

[[20110316125718]] 『入力してあるセルの入れ替え？』（裕） ページの最後に飛ぶ

[[20110316125718]]　『入力してあるセルの入れ替え？』（裕）　ページの最後に飛ぶ