如何用Excel宏移除任意列数据中的特殊字符

需求说明 #

选中Excel中任意列（支持多列），直接修改单元格内的数据，移除.、/这类特殊字符，连续的特殊字符合并为单个空格，无需新建列。

示例原始数据：

AE/ABCD/001234/ABCD
AE/ABCD/001234//ABCD
AE.ABCD.001234.ABCD
AE.ABCD.001234..ABCD

原代码问题分析 #

你提供的测试代码仅针对固定字符串做替换，没有遍历选中区域的单元格，也没有将处理结果写回原单元格，更没处理连续特殊字符的情况，所以无法实现需求。

改进后的宏代码 #

Sub RemoveSpecialChars()
    Dim cell As Range
    Dim processedText As String
    
    ' 遍历选中区域的每个单元格
    For Each cell In Selection
        If Not IsEmpty(cell.Value) Then
            processedText = cell.Value
            ' 替换.和/为空格
            processedText = Replace(processedText, ".", " ")
            processedText = Replace(processedText, "/", " ")
            ' 合并连续空格（处理多个特殊字符连在一起的情况）
            Do While InStr(processedText, "  ") > 0
                processedText = Replace(processedText, "  ", " ")
            Loop
            ' 将处理后的值写回原单元格
            cell.Value = processedText
        End If
    Next cell
End Sub

代码说明 #

• 遍历你选中的所有单元格，仅处理非空内容
• 先把.和/统一替换为空格
• 通过循环将连续的多个空格合并成单个空格，解决连续特殊字符的问题
• 直接修改原单元格内容，无需新建列

处理后结果 #

AE ABCD 001234 ABCD
AE ABCD 001234 ABCD
AE ABCD 001234 ABCD
AE ABCD 001234 ABCD

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