如何修改VBA代码以移除列中特殊字符并生成无空格的纯字母数字输出？

嘿，这个需求很容易实现！你的原代码是把特殊字符替换成空格，所以才会出现abc 123 245这样的输出。咱们换个思路，直接只保留你需要的字符（数字、大小写字母），完全跳过特殊字符，这样就能直接得到无空格的结果了。

修改后的代码如下：

Sub ReplaceSpecial()
    Dim cel As Range
    Dim strVal As String
    Dim newStr As String
    Dim i As Long
    Application.ScreenUpdating = False
    For Each cel In Selection
        strVal = cel.Value
        newStr = "" ' 初始化空字符串用于存储过滤后的内容
        For i = 1 To Len(strVal)
            Select Case Asc(Mid(strVal, i, 1))
                ' 只保留数字、大写字母、小写字母，去掉空格的允许规则
                Case 48 To 57, 65 To 90, 97 To 122
                    newStr = newStr & Mid(strVal, i, 1)
                ' 不符合条件的字符直接跳过，不加入新字符串
            End Select
        Next i
        cel.Value = newStr
    Next cel
    Application.ScreenUpdating = True
End Sub

改动说明： #

• 新增了newStr变量，专门用来存储过滤后的纯字母数字内容
• 去掉了原代码中对空格（ASCII 32）的保留规则，确保最终输出没有空格
• 不再把特殊字符替换成空格，而是直接忽略它们，只把符合要求的字符追加到newStr中
• 最后直接将单元格值设置为newStr，一步到位得到你想要的abc123245效果

如果之后你需要保留原字符串中的空格，只需要把32加回Case的列表里就可以啦。

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