Excelで文字間または各桁の間にスペースを追加するにはどうすればよいですか？

文字列や数字のリストがあり、文字間または各桁の間にスペースを追加したい場合、どうすればよいでしょうか？次の方法はこの問題を解決するのに役立ちます。

ユーザー定義関数を使用して文字間または各桁の間にスペースを追加する
Kutools for Excelを使用して文字間または各桁の間にスペースを追加する

ユーザー定義関数を使用して文字間または各桁の間にスペースを追加する

次のユーザー定義関数を使用して、Excelで文字間または各桁の間にスペースを追加できます。

1. Alt + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。次に、次のコードをモジュールウィンドウにコピーして貼り付けます。

VBAコード：文字間または各桁の間にスペースを追加する

Function AddSpace(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddSpace = AddSpace & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

3. Alt + Qキーを押して、Microsoft Visual Basic for Applicationsウィンドウを閉じ、Excelウィンドウに戻ります。

4. 空のセルを選択し、数式バーに =AddSpace(B2) という数式を入力してから、Enterキーを押します。

この場合、B2セルの文字間にスペースが追加されていることがわかります。

注釈: 各桁の間にスペースを追加する場合は、必要に応じて数式内のセル参照を数字のあるものに変更してください。

Kutools for Excelを使用して文字間または各桁の間にスペースを追加する

VBAコードが複雑な場合は、Kutools for Excelの「テキストの追加」機能を試すことができます。次の手順を実行してください。

1. 文字間または各桁の間にスペースを追加する必要があるセルを選択し、Kutools > テキスト > テキストの追加をクリックします。スクリーンショットをご覧ください：

2. 「テキストの追加」ダイアログボックスで、テキストボックスをクリックし、スペースキーを一度押してテキストボックスにスペースを入力し、追加先オプションを選択します。

文字間にスペースを追加する場合：

ドロップダウンリストで「最初の文字が大文字/小文字」オプションを選択し、最後にOKボタンをクリックします。

各桁の間にスペースを追加する場合：

ドロップダウンリストで「最初の文字が数字」オプションを選択し、最後にOKボタンをクリックします。

これで、指定されたセルの文字間または各桁の間にスペースが追加されます。

Kutools for Excelを使用して文字間または各桁の間にスペースを追加する

関連記事：

• Excelで特定の文字の前または後にテキストを削除するにはどうすればよいですか？
• Excelでセル内の特定の文字の出現回数をカウントするにはどうすればよいですか？