復雜的Excel公式

Question

我有一個可能需要在Excel中創建的奇怪公式，並且不確定如何完成此操作。

我在一個工作表中有一個值，希望將其放入另一個工作表中的另一個單元格中。 這部分很容易。 我想做的是在內容導入之前（在同一單元格中）有一個領導者文本。 到目前為止，我認為這也很容易。 現在是復雜的部分。 我希望領導者文本是一種顏色和粗細，而從工作表1中拉出的文本是一種不同的顏色和粗細。

有什么想法嗎？ 因此可能看起來像這樣：

來自：布賴恩的業務

其中“發件人：”是紅色和粗體，而“布萊恩的生意”是黑色和正常體重。

關於如何完成此任務的任何想法？

提前致謝。

布賴恩

Answer 1

這就是我對VBA宏所做的事情，您可以做同樣的事情並將其應用於您的需求

Sub Macro1()
    Range("F28").Select
    ActiveCell.FormulaR1C1 = "hjkljhklhjkl : ddfff"
    With ActiveCell.Characters(Start:=1, Length:=0).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16777216
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With ActiveCell.Characters(Start:=1, Length:=7).Font
        .Name = "Arial"
        .FontStyle = "Bold"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With ActiveCell.Characters(Start:=8, Length:=2).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16777216
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With ActiveCell.Characters(Start:=10, Length:=11).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End Sub