残念ながら、Excelで大文字の前にスペースを追加する直接的な方法はありませんが、このタスクを解決するためにユーザー定義関数を作成することはできます。

1。 スペースを追加するテキスト文字列を含むワークシートをアクティブにします。

2。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：大文字の前にスペースを挿入します

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4。 次に、このコードを保存して閉じ、ワークシートに戻って、この数式を入力します = addspaces（A1） データの横の空白のセルに、スクリーンショットを参照してください。

5。 次に、この数式を含める範囲に塗りつぶしハンドルをドラッグすると、すべての大文字の前にスペースが挿入されます。

セルの先頭/末尾/余分なスペースを簡単に削除

Excel用のKutools スペースを削除する このユーティリティを使用すると、Excelユーザーは、選択したセルからすべての先頭のスペース、末尾のスペース、余分なスペース、またはすべてのスペースをすばやく簡単に削除できます。

これがあなたに有利な別のVBAコードです。次のようにしてください：

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：大文字の前にスペースを挿入します

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、使用するデータ範囲を選択するためのプロンプトボックスが表示されます。

4。 そして、 OK このプロンプトボックスを閉じるには、大文字の前にスペースが一度に挿入されています。スクリーンショットを参照してください。

Excel用のKutools テキストを追加 ユーティリティは、VBAマクロをバイパスし、Excelですべての大文字の前にスペースを簡単に挿入するのに役立ちます。

1。 大文字の前にスペースを挿入する範囲を選択し、 クツール > テキスト > テキストを追加。 スクリーンショットを参照してください：

2。 開いている[テキストの追加]ダイアログボックスで、にスペースを入力します テキスト ボックス、チェックボックス オプションに追加するだけ をクリックして 最初の文字は大文字です に追加するだけ ドロップダウンリスト。

3。 クリック Ok 次のスクリーンショットに示すように、すべての大文字の前にスペースを挿入するボタン：

ノート：この方法では、最初の文字が大文字の場合、セルの先頭にもスペースが追加されます。 応募できます クツール > テキスト > スペースを削除する 選択したセルからすべての先頭のスペースを削除します。

Excelでコンマの後にスペースを追加するにはどうすればよいですか？