Excel 将字符串添加到另一个单元格并保存原始格式文本颜色

我有一个带字符串的主单元格，我需要将另一个单元格的值连接到它。主单元格中的文本由多种颜色着色，当我连接第二个单元格的值时，主单元格的格式将自动恢复（所有颜色都丢失）。 在将另一个值连接到字符串时，请帮助保存文本颜色

这是我的代码：（运行了几次）

---

使用空白的“帮助器”单元格存储原始单元格字符格式

Sub Adding_Text()
    Dim i As Long

    With Worksheets("T_list")

        .Range("W1").Copy Destination:=.Range("W3")

        .Range("W1") = .Range("W3").Value2 & .Range("W2").Value2

        For i = 1 To Len(.Range("W3").Value2)
            .Range("W1").Characters(Start:=i, Length:=1).Font.Color = _
                .Range("W3").Characters(Start:=i, Length:=1).Font.Color
        Next i

        For i = i To Len(.Range("W2").Value2) + Len(.Range("W3").Value2)
            .Range("W1").Characters(Start:=i, Length:=1).Font.Color = _
                .Range("W2").Characters(Start:=i - Len(.Range("W3").Value2), Length:=1).Font.Color
        Next i

        .Range("W3").Clear

    End With

End Sub

---

使用空白的“帮助器”单元格存储原始单元格字符格式

Sub Adding_Text()
    Dim i As Long

    With Worksheets("T_list")

        .Range("W1").Copy Destination:=.Range("W3")

        .Range("W1") = .Range("W3").Value2 & .Range("W2").Value2

        For i = 1 To Len(.Range("W3").Value2)
            .Range("W1").Characters(Start:=i, Length:=1).Font.Color = _
                .Range("W3").Characters(Start:=i, Length:=1).Font.Color
        Next i

        For i = i To Len(.Range("W2").Value2) + Len(.Range("W3").Value2)
            .Range("W1").Characters(Start:=i, Length:=1).Font.Color = _
                .Range("W2").Characters(Start:=i - Len(.Range("W3").Value2), Length:=1).Font.Color
        Next i

        .Range("W3").Clear

    End With

End Sub

---

您可以通过以下方式取消颜色索引：

Sub Test()

    Dim GetFontColor As Variant

    GetFontColor = Sheet1.Range("A1").Font.ColorIndex

End Sub

---

您可以使用以下方法取消颜色索引：

Sub Test()

    Dim GetFontColor As Variant

    GetFontColor = Sheet1.Range("A1").Font.ColorIndex

End Sub

---

您有可以用作临时“帮助者”单元格的空白单元格吗？是的，我可以使用空白单元格。您有可以用作临时“帮助者”单元格的空白单元格吗？是的，我可以使用空白单元格。