VBAor関数1つのセルに貼り付けた値を2桁毎にスペース区切りで表示させたい

Question

例えばA1セルに①のような形でランダムな数字を入力した場合に、
VBAもしくは関数なりを用いて、
一発で②の表示にさせたいのですが
どちらの方法がより簡単に実装可能でしょうか。（そもそも関数のみでは難しいでしょうか。）

やりたい事としましては 左から2桁ずつスペースを入れて表示させたいです。
※トータルの桁数は固定ではないですが
6桁よりも遥かに多い桁数になります。

なお恐れ入りますが、関数やVBAを最後に扱ってからかなり久しい事もあり
具体的な関数の式やコード等もご教示頂けますと大変幸いです。
よろしくお願いいたします。

①
001122
009988
115566

②
00 11 22
00 99 88
11 55 66

Comments

[cherishlieben]

なお、やりたい事としましては
左から2桁ずつスペースを入れて表示させたいです。

[meg_]

> なお、やりたい事としましては
>左から2桁ずつスペースを入れて表示させたいです。
追加の情報は質問本文を編集して追記してください。

・入力される数字は6桁固定ですか？
・表示変更のタイミングはいつにしたいのですか？

> なお恐れ入りますが、関数やVBAを最後に扱ってからかなり久しい事もあり
> 具体的な関数の式やコード等もご教示頂けますと大変幸いです。
調べたことも何も無いのですか？

[hatena19]

スペースを挿入した結果は、入力したセルとは別のセルに表示するのでもいいのであれば、関数で可能ですが、入力したセルに反映させたいのならVBA必須です。
どちらが希望か教えてください。

Excelのバージョンはなんでしょうか。バージョンによって使える関数等がことなりますので、それも教えてください。

[yambejp]

まず「001122」を数値として入力することはできません
桁数が不定であれば０でフィルすることもできません
専用の関数をつくっていいなら意外に簡単にできます

Answer 1

そもそも関数のみでは難しいでしょうか。

使用されている Excel のバージョンが何であるか、新しい関数に対応しているかどうか次第。

A1セルに①のような形でランダムな数字を入力した場合に

左から2桁ずつスペースを入れて表示させたいです。
※トータルの桁数は固定ではないですが
6桁よりも遥かに多い桁数になります。

例えば SEQUENCE 関数を使用できる環境なのであれば、B1 セルに次のような数式を入力なさればよいでしょう。

=IF(A1<>"",TEXTJOIN(" ",FALSE,MID(A1,SEQUENCE(1,ROUNDUP(LEN(A1)/2,0),1,2),2)),"")