エクセルで文字と文字の間にスペースを入れる方法

ここでは、名前の「姓」と「名」の間に関数を使って、スペースを挿入します。

スペースが挿入された名前を表示させたい列の先頭セル（例：B2）を選択します。

数式バーに「=REPLACE(A2,3,," ")」を入力し、Ctrl + Enterを押して確定します。

この数式は、REPLACE関数を使って、A2セルに入力されている文字列の3文字目の前に空白文字（スペース）を追加する式です。

具体的には「山田 太郎」のように、3文字目の「太」の前にスペースを挿入します。

REPLACE関数の詳細については、以下の記事を参照してください。

ExcelのREPLACE関数の使い方｜指定した文字数の文字を置換する

B2セルに「山田 太郎」というスペースが挿入された名前が表示されました。

B2セル右下の■にカーソルを合わせ、下へドラッグします。

B3セルからB6セルにも、姓と名の間にスペースが挿入された名前が表示されました。

今回はVBAを使って操作を行います。

VBAの操作には「開発タブ」が必要ですが、デフォルトでは表示されていないため下記の記事を参考に設定を行いましょう。

エクセルの開発タブを表示する方法

今回は上記データのうち、A1セルからA5セルまでのデータに全角スペースを挿入します。

①「開発」タブ、②「Visual Basic」の順に選択します。

「Microsoft Visual Basic for Applications」ダイアログボックスが表示されました。

①「挿入」タブ、②「標準モジュール」の順に選択します。

標準モジュールが表示されました。以下のコードをコピーして貼り付けます。

Sub 文字間にスペース挿入()
    Dim 対象セル As Range
    Dim 元のテキスト As String
    Dim 使用するスペース As String
    Dim i As Integer
    
    ' 使用するスペースを選択
    使用するスペース = InputBox("挿入するスペースを選択してください：" & vbCrLf & _
                                 "1: 半角スペース" & vbCrLf & _
                                 "2: 全角スペース", "スペースの選択", "1")
    
    ' 選択範囲内の各セルに対して処理を行う
    For Each 対象セル In Selection
        元のテキスト = 対象セル.Value
        対象セル.Value = "" ' セルの内容を一旦クリア
        
        ' 選択したスペースを挿入して新しいテキストを作成
        For i = 1 To Len(元のテキスト)
            対象セル.Value = 対象セル.Value & Mid(元のテキスト, i, 1) & IIf(使用するスペース = "2", "　", " ")
        Next i
        
        ' 末尾のスペースを削除
        対象セル.Value = Trim(対象セル.Value)
    Next 対象セル
End Sub

このコードは、選択したセルに入力されているデータのすべての文字の間に、全角か半角スペースを挿入します。

①「ファイル」タブ、②「（ファイル名）.xlsxの上書き保存」の順に選択します。

「名前を付けて保存」ダイアログボックスが表示されました。①保存したいフォルダー（例: デスクトップ）を選択します。

②ファイル名（例：スペースを入れる）を入力し、③「ファイルの種類」のプルダウンから「Excel マクロ有効ブック」を選択し、④保存ボタンを押します。

Excelの編集画面に戻りました。

①スペースを挿入したいデータ（例：A1からA5）、②「開発」タブ、③「マクロ」の順に選択します。

「マクロ」ダイアログボックスが表示されました。

①マクロ名（例：文字間にスペースを挿入）を選択し、②「実行」ボタンを押します。

「スペースの選択」ダイアログボックスが表示されました。

ここではデータに全角スペースを挿入するため、①「2」を入力し、②「OK」ボタンを押します。

データに半角スペースを挿入したい場合には、「1」を入力してください。

選択したデータのみ、すべての文字の間に全角スペースが挿入されました。