不幸的是，您没有直接方法可以在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中的逗号后添加空格？