Excel 使用粗体和斜体格式进行连接

我正在尝试编写一个用于连接的VBA代码，并将一列的值格式化为粗体，将另一列的值格式化为粗体和斜体。无法通过它。请帮忙

=CONCATENATE([@[Job Title]],CHAR(10),[@[Business Segment]],CHAR(10),[@[US Pay Band]],CHAR(10)," ",CHAR(10),"Incumbent - ",[@Name],CHAR(10)," ",CHAR(10),"Hay Points - ",[@[Final Hay Points]],CHAR(10))

这里的职位名称应为粗体，名称应为粗体和斜体

注释代码：

Sub bold()

Dim r As Range, c As Range
Dim ws As Worksheet

Set ws = ActiveSheet
Set r = ws.Range("X:X")
For Each c In r 
    With c 
        .Font.bold = False 
        .Value = .Text 
        .Characters(1, InStr(.Text, vbLf) - 1).Font.bold = True
    End With
Next c 
...
End sub

---

你的标签与你的问题并不完全一致。您的公式看起来像excel格式，而不是VBA字符串。如果显示一些具有预期输出的示例数据，可能会有所帮助。您还没有列出具体的问题，因此不清楚您实际需要帮助的是什么。“无法通过它”告诉我们什么都不真实我希望工作名称为粗体，名称为粗体和斜体，以及单元格的连接，但当我进行连接时，它不工作，它以正常字体运行。如果使用公式，这是不可能的。我编写了一个VBA代码，它将第一行工作名称加粗，但不将当前名称Sub Bold（）Dim r作为范围，c As Range Dim ws As WORKS Set ws=ActiveSheet Set r=ws.Range（“X:X”）对于r中的每个c，c.Font.bold=False.Value=.Text.Characters（1，InStr（.Text，vbLf）-1）。Font.bold=True结束于下一个CY您需要将Excel单元格公式的结果作为字符串写入单元格。不能对excel单元格公式的输出进行差异格式设置。如果在VBA宏中而不是在工作表上进行连接，则编码可能会更简单。