如何在Excel中的大写字母之前插入空格？-英雄云拓展知识分享

令人遗憾的是，您没有直接方法可以在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。 然后将填充手柄拖到要包括此公式的范围内，您将在每一个大写字母之前插入空格。

轻鬆删除单元格中的前导/后缀/过剩空格

tools 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 = "toolsforExcel"
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 要关闭此提示框，请立即在大写字母之前插入空格，请参见屏幕截图：

tools for Excel的 添加文本 实用程序可以帮助您绕过VBA宏并在Excel中轻鬆在每一个大写字母之前插入空格。

1。 选择您要在大写字母之前插入空格的范围，然后单击 库工具 > 文本 > 添加文本。 看截图：

2。 在打开的“添加文本”对话框中，在 文本 框，选中 仅添加到选项 并选择 第一个字母为大写 来自 仅添加到 下拉列表。

3。 点击 Ok 按钮，在每一个大写字母前插入空格，以下图所示：

笔记：如果第一个字母为大写字母，则此方法还将在单元格的开头添加空格。 你可以申请 库工具 > 文本 > 删除空间 删除所选单元格中的所有前导空格。

如何在Excel中的逗号后添加空格？