保留格式修改Excel文本列：移除XXX_并为YYYY添加删除线

需求说明 #

需要对Excel指定列的单元格内容做如下修改：

• 移除文本中的XXX_前缀
• 为前缀后的YYYY文本添加删除线格式
• 保留单元格内其他文本（如示例中的lorem ipso）的原有格式（字号、颜色、加粗等）

样本数据 #

col1
"lorem ipso, XXX_YYYY, lorem ipso"

期望结果 #

col1
"lorem ipso, YYYY, lorem ipso"

原代码问题分析 #

你提供的VBA代码直接通过修改cell.Value替换文本，该操作会重置整个单元格的富文本格式，导致原有格式丢失。要保留格式，必须通过操作单元格的Characters对象修改局部文本，而非覆盖整个单元格内容。

修正后的VBA代码 #

Sub ModifyTextWithFormatPreserved()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim posXXX As Integer
    Dim lenXXX As Integer
    Dim lenYYYY As Integer
    
    ' 指定目标工作表，可根据实际修改
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lenXXX = Len("XXX_")
    lenYYYY = Len("YYYY")
    
    ' 获取数据最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A列所有数据单元格
    For Each cell In ws.Range("A1:A" & lastRow)
        posXXX = InStr(cell.Value, "XXX_")
        
        If posXXX > 0 Then
            ' 删除XXX_部分，保留其他文本格式
            cell.Characters(posXXX, lenXXX).Delete
            
            ' 为YYYY添加删除线：删除XXX_后，YYYY的起始位置就是原XXX_的起始位置
            cell.Characters(posXXX, lenYYYY).Font.Strikethrough = True
        End If
    Next cell
End Sub

代码关键说明 #

1. 格式保留核心：使用cell.Characters(posXXX, lenXXX).Delete删除XXX_，仅移除指定位置的文本，不会破坏单元格内其他文本的原有格式。
2. 位置计算优化：删除XXX_后，YYYY的起始位置与原XXX_的起始位置一致，无需重新查找，避免重复匹配问题。
3. 精准格式修改：通过Characters对象仅为YYYY添加删除线，不影响其他文本的格式设置。

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