技术求助：Excel按", "拆分单元格文本并保留字体颜色（同行输出）

以下是修改后的VBA代码，实现按, （逗号加空格）拆分目标单元格文本，将结果输出到同一行的连续单元格中，同时完整保留每个字符的原始字体颜色：

Sub splitWithColor()
    Dim vStr As Variant, v
    Dim rSrc As Range, rRes As Range
    Dim I As Long, J As Long, K As Long
    Dim totalElements As Long

    ' 定义源单元格和结果起始单元格
    Set rSrc = Range("A1")
    Set rRes = Range("A3")

    ' 按", "拆分文本
    vStr = Split(rSrc.Value2, ", ")
    totalElements = UBound(vStr) + 1

    Application.ScreenUpdating = False

    ' 调整结果区域为同一行的连续单元格
    Set rRes = rRes.Resize(1, totalElements)
    ' 批量写入拆分后的文本内容
    rRes.Value = vStr

    I = 0
    J = 1
    For Each v In vStr
        ' 逐个字符复制字体颜色
        For K = 1 To Len(v)
            rRes.Characters(K, 1).Offset(0, I).Font.Color = rSrc.Characters(J, 1).Font.Color
            J = J + 1
        Next K
        ' 跳过原单元格中的分隔符", "（最后一个元素不需要跳过）
        If I < totalElements - 1 Then
            J = J + 2
        End If
        I = I + 1
    Next v

    Application.ScreenUpdating = True
End Sub

关键修改说明： #

• 拆分规则调整：将Split(rSrc.Value2)改为Split(rSrc.Value2, ", ")，明确指定以, 作为分隔符拆分文本
• 结果区域调整：把纵向扩展的Resize(UBound(vStr) + 1)改为横向扩展的Resize(1, totalElements)，让拆分结果排列在同一行的连续单元格中
• 字符颜色精准匹配：新增内层循环逐个字符复制颜色，替代原代码仅复制片段首字符颜色的逻辑；同时处理分隔符的位置偏移，确保每个字符的颜色与原单元格完全对应
• 体验优化：保留ScreenUpdating开关，避免拆分过程中屏幕频繁闪烁

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