Excel 空白セルを詰めて表示する方法

＜図１＞
　　　　A　　　　　B
1 　　あいう
2 　　　　　　　　えお
3 　　かきく
4 　　　　　　　　けこ
5 　　さしす

＜図２＞各行の空白セルを詰めて表示させる
　　　　A　　　　　B　　　　
10　　あいう　　けこ
11　　かきく
12　　さしす
13　　えお


以前の投稿で以下のようなものはあったのですが、
上記のようにしたい場合、どの様な関数を組めばいいのでしょうか？
------以下，参考にした例------

＜図１＞
　　　　A　　　　　B
1 　　あいう
2 　　　　　　　　えお
3 　　かきく
4 　　　　　　　　けこ
5 　　さしす

＜図２＞各行の空白セルを詰めて表示させる
　　　　A　　　　　B　　　　
10　　あいう　　　えお
11　　かきく　　　けこ
12　　さしす
13
14

【関数】

A10: =IF(ROW(A1)>COUNTA(A$1:A$5),"",INDEX(A$1:A$5,SMALL(IF(A$1:A$5<>"",ROW($A$1:$A$5),""),ROW(A1))))

No.2 回答者： KURUMITO 回答日時： 2013/05/31 16:11

例えばＣ１セルの次の式を入力してＤ１セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(ROW(A1)>4,"",IF(COLUMN(A1)=1,IF(ROW(A1)<=COUNTIF($A:$A,"*?"),INDEX($A:$A,ROW(A1)*2-1),INDEX($B:$B,(ROW(A1)-COUNTIF($A:$A,"*?"))*2)), IF(COLUMN(A1)=2, IF(ROW(A1)<=COUNTIF($A:$A,"*?")-4,INDEX($A:$A,8+ROW(A1)*2-1), IF(AND(ROW(A1)>COUNTIF($A:$A,"*?")-4,ROW(A1)<=COUNTIF($A:$A,"*?")-4+COUNTIF($B:$B,"*?")),INDEX($B:$B,(ROW(A1)-(COUNTIF($A:$A,"*?")-4))*2),"")))))

上のエースでは４行までに並べることになりますね。また、Ａ７セルに「せそ」、Ａ９せるに「たち」のように入力されている場合でも対応できます。

この回答への補足

スペースが消えちゃったので正しくは以下の様になってしまっています。
　　　　C　　　　　D　　　　
1　　あいう　　　0
2　　かきく　　　えお
3　　さしす　　　けこ
4　　　　0
以下のようにしたいんですがなんとかなりませんでしょうかT0T
　　　　C　　　　　D　　　　
1　　あいう　　　けこ
2　　かきく
3　　さしす
4　　えお

補足日時：2013/05/31 16:29

この回答へのお礼

回答ありがとうございます。
早速試してみましたがこれだと以下の様になってしまいました、、、
　　　　C　　　　　D　　　　
1　　あいう0
2　　かきくえお
3　　さしすけこ
4　　　　0
以下のようにしたいんですがなんとかなりませんでしょうかT0T
　　　　C　　　　　D　　　　
1　　あいうけこ
2　　かきく
3　　さしす
4　　えお

お礼日時：2013/05/31 16:25

No.1 回答者： mt2008 回答日時： 2013/05/31 16:06

補足願います。

どの様な条件の時にB列の文字列がA列最後尾に移動するのですか？
＃提示例の場合の「えお」

この回答への補足

書き込みありがとうございます。
関数をセットした範囲で空セルがまだあった場合に移動したいです。
14行目まで関数がセットしてあったら以下の様に・・・・
＜図２＞各行の空白セルを詰めて表示させる
　　　　A　　　　　B　　　　
10　　あいう
11　　かきく
12　　さしす
13　　えお
14　　けこ

補足日時：2013/05/31 16:14