エクセル関数 ２文字目に空白を入れるには

複数のセル全て（同じ行）に、２文字目にスペース１つを入れたいのですが、関数で一気にできる方法はないでしょうか？

No.2 ベストアンサー 回答者： rex9200 回答日時： 2007/08/24 12:04

文字を入れ込む関数はなさそうですね。

しかも同じ列ではなく同じ行ですか？

ちょっと面倒ですが、性と名の間に一文字入れる簡易な方法を
流用して・・・
・該当セル範囲をコピーして別のシートに形式選択の「列を入れ替え」指定で貼り付ける。
・列を行に変更したところで一文字目とそれ以降を分離します。
→範囲選択して「データ」「区切り位置」「固定長指定」で１文字目と２文字目をクリックして「完了」。２つのセルになります。
・３つ目のセルにＣＯＮＣＡＴＩＮＡＴＥ関数でまとめる
「=CONCATENATE(A1," ",B1)」
・３つ目のセルを全部コピーして列を入れ替えて貼り付け

思いつくのはこれ位です。

この回答へのお礼

返事が大変遅れまして申し訳ありません。
やってみました。
出来ました！大変助かりました。
ありがとうございました。

お礼日時：2007/08/28 10:41

No.3 回答者： noname#140971 回答日時： 2007/08/24 12:08

＜Sheet１＞

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Macro1
End Sub

＜Modul1＞
Sub Macro1()
　　If Mid(ActiveCell.Value, 2, 1) <> " " And Len(ActiveCell.Value) > 1 Then
　　　　ActiveCell.FormulaR1C1 = Left(ActiveCell.Value, 1) & " " & Mid$(ActiveCell.Value, 2)
　　End If
End Sub

まあ、これで対象となるセルをダブルクリックすれば目的は達成されます。
そういうことで、シコシコとダブルクリック。

No.1 回答者： paruru 回答日時： 2007/08/24 11:51

アナログになりますが。

。。
自分の場合、以下のようにすると思います。
スペースの右側と左側をそれぞれ別のセルに入力し、数式でくっつける。
すなわち、
A1セル　aaa B1セル　bbb　C1セル=A1&" "&A2
とするとC1に　aaa bbb と入力されますので。
いかがでしょうか。。。