Question

您好，我正在尝试获取一个代码，该代码可以从sheet1的多个单元格中获取数据并将它们放置在sheet2的同一单元格中，但棘手的部分是保持sheet1的文本颜色相同。

例如：

sheet one 
A1-Roses(red text)
A2-Are Red(blue text)

应阅读sheet2：

A1-RosesAre Red (red and blue text respectively)

Answer 1

以dwirony的建议为例，您可以尝试使用以下代码：

Sub JoinText()
    With ActiveSheet
        .Range("C3").Value = .Range("A1").Value & " " & .Range("A2").Value
        .Range("C3").Characters(Start:=1, Length:=Len(.Range("A1").Value)).Font.Color = _
            .Range("A1").Font.Color
        .Range("C3").Characters(Start:=Len(.Range("A1").Value) + 1, Length:=255).Font.Color = _
            .Range("A2").Font.Color
    End With
End Sub

从另一张表连接并保留两种不同的文本颜色VBA

1 个答案: