不幸的是，您沒有直接方法可以在Excel中的大寫字母前添加空格，但是，您可以創建用戶定義函數來解決此任務。

1。 激活包含要添加空格的文本字符串的工作表。

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口.

3。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

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。 然後將填充手柄拖到要包含此公式的範圍內，您將在每個大寫字母之前插入空格。

輕鬆刪除單元格中的前導/後綴/多餘空格

Kutools for Excel的 刪除空間 該實用程序使Excel用戶可以輕鬆地快速刪除所選單元格中的所有前導空格，尾隨空格，多餘空格或所有空格。

這是可以幫助您的另一個VBA代碼，請執行以下操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口.

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

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 要關閉此提示框，請立即在大寫字母之前插入空格，請參見屏幕截圖：

Kutools for Excel的 添加文本 實用程序可以幫助您繞過VBA宏並在Excel中輕鬆在每個大寫字母之前插入空格。

1。 選擇您要在大寫字母之前插入空格的範圍，然後單擊 庫工具 > 文本 > 添加文本。 看截圖：

2。 在打開的“添加文本”對話框中，在 文本 框，選中 僅添加到選項 並選擇 第一個字母為大寫 來自 僅添加到 下拉列表。

3。 點擊 Ok 按鈕，在每個大寫字母前插入空格，如下圖所示：

筆記：如果第一個字母為大寫字母，則此方法還將在單元格的開頭添加空格。 你可以申請 庫工具 > 文本 > 刪除空間 刪除所選單元格中的所有前導空格。

如何在Excel中的逗號後添加空格？