字符串拆分与无空格字符计数方法及VBA姓名解析代码求助

1. 拆分字符串并统计去除空格后的字符数量 #

拆分字符串 #

在VBA中可通过Split函数按空格拆分字符串，示例代码：

Dim originalStr As String
Dim splitArr() As String
originalStr = "John Michael Smith"
splitArr = Split(originalStr, " ") ' 按空格拆分，得到数组("John", "Michael", "Smith")

若需处理连续空格，先将连续空格替换为单个空格再拆分：

originalStr = Replace(originalStr, "  ", " ")
Do While InStr(originalStr, "  ") > 0
    originalStr = Replace(originalStr, "  ", " ")
Loop
splitArr = Split(originalStr, " ")

统计去除空格后的字符数量 #

用Replace清除所有空格，再通过Len函数获取字符长度：

Dim charCount As Integer
charCount = Len(Replace(originalStr, " ", ""))
MsgBox "去除空格后的字符数：" & charCount

2. VBA代码问题修复与功能实现 #

原代码核心问题 #

• 逻辑倒置：If Name = ""的判断写反，仅当用户输入空值时才执行循环，正常输入姓名时代码完全不运行
• 语法缺失：While循环没有对应的Wend闭合语句，会触发编译错误
• 命名冲突：Name是VBA内置关键字，用作变量名易引发未知错误
• 功能偏离：原代码是统计输入内容在选中单元格的出现次数，和“拆分姓名并统计相关内容”的需求不符

修正后的代码（实现姓名拆分+统计） #

Sub ParseName()
    Dim userName As String
    Dim nameParts() As String
    Dim charCountNoSpace As Integer
    Dim partCount As Integer
    
    ' 接收用户输入
    userName = InputBox("Enter First Name, Middle Name, and Last Name")
    
    ' 输入非空时执行处理逻辑
    If userName <> "" Then
        ' 清理连续空格
        Dim cleanedName As String
        cleanedName = userName
        Do While InStr(cleanedName, "  ") > 0
            cleanedName = Replace(cleanedName, "  ", " ")
        Loop
        
        ' 拆分姓名
        nameParts = Split(cleanedName, " ")
        
        ' 统计去除空格后的字符数
        charCountNoSpace = Len(Replace(userName, " ", ""))
        ' 统计姓名拆分后的部分数量
        partCount = UBound(nameParts) + 1
        
        ' 组装结果弹窗内容
        Dim resultMsg As String
        resultMsg = "姓名拆分结果：" & vbCrLf
        For i = LBound(nameParts) To UBound(nameParts)
            resultMsg = resultMsg & "第" & i + 1 & "部分：" & nameParts(i) & vbCrLf
        Next i
        resultMsg = resultMsg & "去除空格后的总字符数：" & charCountNoSpace & vbCrLf
        resultMsg = resultMsg & "姓名共分为" & partCount & "部分"
        
        MsgBox resultMsg
    Else
        MsgBox "请输入有效的姓名内容"
    End If
End Sub

代码说明 #

• 将变量Name重命名为userName，规避关键字冲突
• 修正判断逻辑，仅当用户输入非空内容时执行处理
• 增加连续空格清理步骤，避免拆分出空元素
• 实现姓名拆分功能，同时统计去除空格后的字符数、姓名拆分部分数量
• 通过弹窗清晰展示所有统计及拆分结果

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