VBA移除字符串中无效换行/回车的函数代码优化与评审请求

现有代码的核心问题 #

• 冗余开销极高：每检测到1个无效字符，就要做全数组移位、内存重分配（ReDim Preserve）、从头全量重跑循环，长字符串下时间复杂度达到O(n²)，万级字符长度就会出现明显卡顿
• 类型效率低下：用Variant数组存单字符，内存开销是普通字符存储的10倍以上，后续Join操作还要做大量隐式类型转换
• 逻辑重复：先逐字符拆分存数组，最后拼接完成又全量替换删除空格，相当于对同一字符串做了两遍无意义处理
• 目标偏差：原代码实际仅识别并移除ASCII10（LF换行）、ASCII9（Tab制表符）、ASCII32（半角空格），并未包含ASCII13（CR回车），和你提到的“移除回车符”的需求不匹配

无重跑逻辑的可落地实现 #

完全不需要自定义的GoTo Reloop逻辑，两种最优实现按需选择：

固定规则下的最高性能实现 #

直接用VBA原生的字符串替换方法，全程没有用户层循环、没有数组操作，性能是原实现的几十倍。你之前提到的“内置函数漏处理回车换行”，指的是工作表端的CLEAN/TRIM这类函数——这类函数本身不处理半角空格，对跨来源的混合控制符兼容性差；但VBA内置的Replace是编译器层优化的内存级操作，只要明确指定要匹配的字符，就不会出现遗漏：

Function fnRemoveInvalidStrings(ByVal strString As String) As String
    Dim tempStr As String
    tempStr = strString
    ' 按需求明确指定要删除的字符，无遗漏风险
    tempStr = Replace(tempStr, vbCr, "")   ' 删除ASCII13 回车
    tempStr = Replace(tempStr, vbLf, "")   ' 删除ASCII10 换行
    tempStr = Replace(tempStr, vbTab, "") ' 删除ASCII9 制表符
    tempStr = Replace(tempStr, " ", "")    ' 删除ASCII32 半角空格
    fnRemoveInvalidStrings = tempStr
End Function

支持动态规则的灵活实现 #

如果后续需要频繁调整要移除的字符集合，单趟从左到右遍历即可完成，完全不需要重跑：

Function fnRemoveInvalidStrings(ByVal strString As String) As String
    ' 按需调整要移除的字符集合即可
    Const REMOVE_LIST As String = vbCr & vbLf & vbTab & " "
    Dim resStr As String
    Dim curChar As String * 1
    Dim i As Long
    
    resStr = ""
    ' 单趟遍历：碰到需要保留的字符直接拼接，不需要回头重跑
    For i = 1 To Len(strString)
        curChar = Mid$(strString, i, 1)
        If InStr(1, REMOVE_LIST, curChar, vbBinaryCompare) = 0 Then
            resStr = resStr & curChar
        End If
    Next i
    fnRemoveInvalidStrings = resStr
End Function

如果需要处理数万字以上的超长文本，还可以替换为字节数组原地过滤的写法，进一步降低字符串拼接的内存重分配开销，性能还能再提一个量级。

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