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

質問

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

＜図１＞
　　　　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 · ベストアンサー

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

Ａ１０に
=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の方が，判りやすいと思います。

お礼

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

回答No.2

mar00

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