ＥＸＣＥＬ関数 空白セルを詰める関数

図１の表を図２のようにオートフィルタを使わず表示させる関数で下記を見つけましたが、実際使うときには、番地がＡ１からの位置ではなくＡＡ６０ぐらいの位置でこの関数を実行すると表示されません。
どの部分をその番地にあわせるとよいでしょうか？

＜図１＞
　　　　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))))

Ctrl + Shift + Enterキーで式を確定します。

右と下にコピーします。

No.1 ベストアンサー 回答者： keithin 回答日時： 2012/01/27 11:37

元データがＡ６０から始まっているとすると，

Ａ１０に
=IF(ROW(A1)>COUNTA(A$60:A$65),"",INDEX(A$60:A$65,SMALL(IF(A$60:A$65<>"",ROW($A$1:$A$6),""),ROW(A1))))
をコントロールキーとシフトキーを押しながらEnter，下にコピー，右にコピー　と直す格好になりますね。




＃好みの問題ですが
=IF(ROW(A1)>COUNTA(A$60:A$65),"",INDEX(A:A,SMALL(IF(A$60:A$65<>"",ROW(A$60:A$65),""),ROW(A1))))
をCtrl+Shift+Enterの方が，判りやすいと思います。

この回答へのお礼

大変役に立ちましたありがとうございました。

お礼日時：2012/11/13 11:00

No.2 回答者： mar00 回答日時： 2012/01/27 12:30

関数ではないですが

単純に空白セルを削除するだけならば、範囲を指定して
編集　→　ジャンプ　→　セル選択　→　空白セルを選択して
削除　→　上方向にシフトでもできます。

この回答へのお礼

お礼遅くなり失礼いたしました。
ありがとうございました。
テクニックの一つとして使わせてもらいます。

お礼日時：2016/02/16 17:14