excel - 从另一张纸连接并保持两种不同的文本颜色VBA

Question

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

例如：

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

应该继续阅读sheet2：

A1-RosesAre Red (red and blue text respectively)

标签： excelvbaampersand

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