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

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

例如：

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

应在第2页上阅读：

---

以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

---

所以不是免费编码服务。向我们展示您的努力，以及您所拥有的和您试图实现的目标…听起来您可以在从一张纸复制/粘贴到另一张纸的同时录制一个宏，然后让我们为您编写代码。此外，你的标题中的“和”是什么意思？要在同一个单元格中连接两个数据单元格，你需要获得A1和A2的字体颜色和字符串长度，将它们存储在变量中，然后在连接新句子后，你需要重新对它们进行排序。CharactersStart:=1，length:=字体等。。。没有其他方法可以做到这一点，真的。。。

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