エクセルの関数に関する質問ですが

質問

1セルに数字を1つずつ空白セルも含んで入力した際に

下の行に空白を含まずに横一列に並ばせるには
どのような関数にすれば良いでしょうか？

具体的にやりたいことは(□は空白セルになります。)

34□56□7
と入力したら下の行に
34567
のように空白セルを除いて
横一列に表示させたいのです。

どうぞよろしくお願いします。

回答No.4

mu2011 · ベストアンサー

次の数式をお試し下さい。
配列数式の為、入力完了時にshift＋ctrl＋enterキーを同時押下して下さい。
仮にA1:G1にデータが入力されているとしています。
A2に=IF(COUNT($A1:$G1)>=COLUMN(),INDEX($A1:$G1,,SMALL(IF($A1:$G1="",999,COLUMN($A1:$G1)),COLUMN(A1))),"")を設定し、右方向にコピーして下さい。

お礼

うまくいきました。
どうもありがとうございました。

回答No.7

maron--5

◆こんな方法もありますよ
=MID($A$1&$B$1&$C$1&$D$1&$E$1&$F$1&$G$1,COLUMN(A1),1)
★右にコピー

回答No.6

ka_na_de

リアルタイムでなくて良いなら、
エクセルのメニュー操作で簡単にできますよ。

１）34□56□7を下の行にコピー＆ペースト
２）下の34□56□7を選択し、「編集」→「ジャンプ」
　　「セル選択」ボタンを押して、「空白セル」にチェックして「OK」
３）「編集」→「削除」
　　「左方向にシフト」をチェックして、「OK」

-------------------------------------------------------
マクロだとこんな感じです。
標準モジュールに登録して、
34□56□7を選択して、実行すると
下の行に空白を削除し表示

Sub test()
　Selection.Copy
　ActiveSheet.Paste Destination:=Selection.Offset(1)
　Selection.Offset(1).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

回答No.5

imogasi

データー区切り位置ー次ぎへースペースー完了　のことかな。
１つのセル（例えばA1）に　34□56□7
と入力する。
そして範囲指定して、上記の操作をすると
A1=34、B1=56,C1=7が入る。

回答No.3

WWolf

こんにちは

VBAですれば簡単ですが関数となると＃１さんのを工夫すれば可能かと思いますよ。

努力してみてください。

回答No.2

hana-hana3

=A1&B1&C1・・・
では駄目なのでしょうか？

回答No.1

zap35

全角の空白なら
=SUBSTITUTE(A1,"　","")

全角空白、半角空白混在なら
=SUBSTITUTE(SUBSTITUTE(A1,"　","")," ","")

ただし結果は文字列（左詰）になります。
これを数値にしたいなら
=SUBSTITUTE(SUBSTITUTE(A1,"　","")," ","")*1

補足

日本語が下手で申し訳ございません。
私がやりたいのは
一つのセルに何文字も表示させるのではなく
一つのセルに1文字ずつ表示させる、つまり
以下のようにしたいのです(ABCは列、12は行になります)

　 ABCDEFGH
1 456□4□5
2 45645

どうぞよろしくお願いします。