Excel VBA清除特殊字符时保留单元格字体颜色的问题求助

直接修改单元格Value属性会覆盖所有字符格式，要保留不同单词的字体颜色，必须通过Characters对象逐个处理字符，而非整体替换文本。以下是修改后的代码：

Public Function cleanTemplateRange(FloorT As Long, BaseT As Long, WallT As Long)
    Dim dirtyRange As Range
    Set dirtyRange = Union(Sheets("template").Range("D2:D" & FloorT), _
                          Sheets("template").Range("G2:G" & BaseT), _
                          Sheets("template").Range("I2:I" & WallT))
    
    Dim allowedChars As String
    allowedChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 .-"
    
    Dim cleanCell As Range
    Dim i As Long
    
    For Each cleanCell In dirtyRange
        ' 清除特殊字符（从后往前遍历，避免索引混乱）
        i = cleanCell.Characters.Count
        Do While i >= 1
            If InStr(allowedChars, cleanCell.Characters(i, 1).Text) = 0 Then
                cleanCell.Characters(i, 1).Delete
            End If
            i = i - 1
        Loop
        
        ' 清除末尾空格
        i = cleanCell.Characters.Count
        Do While i >= 1 And cleanCell.Characters(i, 1).Text = " "
            cleanCell.Characters(i, 1).Delete
            i = cleanCell.Characters.Count ' 删除后重新获取字符数
        Loop
    Next cleanCell
    
    Set cleanRoomsRange = dirtyRange
End Function

关键说明： #

• 从后往前删除字符：如果从前往后删除，删除一个字符后后续字符的索引会前移，导致漏处理。从后往前遍历则不会出现这个问题。
• 保留原格式：通过Characters(i,1)操作单个字符，仅删除不符合要求的字符，完全保留剩余字符的字体颜色、字号等格式。
• 字符校验逻辑：用InStr检查字符是否在允许的集合中，替代正则表达式的整体替换，避免破坏格式。

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