Excel VBA : make part of string bold

Question

我的 Excel 单元格包含如下条目:

name/A/date
name/B/date
name/C/date

单元格内容在同一单元格中显示在多行上。我只想将所有条目的“名称”加粗。我录制了一个宏，我认为解决方案一定是这样的:

ActiveCell.FormulaR1C1 = "name/A/date" & Chr(10) & "name/B/date" & Chr(10) & "name/C/date"
With ActiveCell.Characters(Start:=25, Length:=4).Font
    .FontStyle = "Bold"
End With

我不知道如何获取每个条目的起始值和长度。有人有想法吗？

Answer 1

现在就拥有它:

lngPos = InStr(ActiveCell.Value, "/")
With ActiveCell.Characters(Start:=1, Length:=lngPos - 1).Font
    .FontStyle = "Bold"
End With