复杂的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