Excel数字与字母间加空格：公式失效求助及VBA方案咨询

原公式失效原因 #

你的公式仅处理最后一个数字的后方位置，且只支持数字在字母前的单一场景，具体问题如下：

• 仅识别字符串里最后出现的数字，只在它后面加空格，多处数字字母交替的情况（比如"X1Y2Z"）只会变成"X1Y2 Z"，前面的X和1、Y和2之间不会处理
• 完全不支持字母在数字前的情况（比如"12AB34CD"），这类场景下公式找不到有效位置，直接返回原字符串
• 公式用了分号;做参数分隔符，仅适用于非英文区域的Excel，英文区域用逗号,的话会直接报错

VBA自定义函数方案 #

按以下步骤添加自定义函数，能自动在所有数字和字母的交界处加空格：

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 右键左侧工程窗口里的当前工作簿，选择「插入」→「模块」
3. 粘贴以下代码：

Function AddSpaceBetweenNumAlpha(ByVal inputStr As String) As String
    Dim i As Integer
    Dim resultStr As String
    resultStr = ""
    
    For i = 1 To Len(inputStr)
        resultStr = resultStr & Mid(inputStr, i, 1)
        ' 判断当前字符和下一个字符是否为数字+字母/字母+数字的组合
        If i < Len(inputStr) Then
            If (IsNumeric(Mid(inputStr, i, 1)) Xor IsNumeric(Mid(inputStr, i + 1, 1))) Then
                resultStr = resultStr & " "
            End If
        End If
    Next i
    ' 去除首尾空格（如果有的话）
    AddSpaceBetweenNumAlpha = Trim(resultStr)
End Function

4. 回到Excel工作表，在单元格里输入=AddSpaceBetweenNumAlpha(B3)就能生效

这个函数会逐个检查相邻字符：只要前一个是数字、后一个是字母，或者前一个是字母、后一个是数字，就自动插入空格，支持所有数字与A-Z字母的组合场景。

内容的提问来源于stack exchange，提问作者Cooper