Excel VBA修改代码实现文本开头插入带格式符号并保留原有格式

修改后可直接使用的代码 #

Sub I___TickRedBEFOREText_KeepsOtherCharFormatting()

' 在文本开头位置插入指定内容
ActiveCell.Characters(1, 1).Insert (" P ")

' 为插入的对号字符设置格式（插入的" P "中P位于第2位）
With ActiveCell.Characters(2, 1).Font
    .Name = "Wingdings 2"
    .Bold = True
    .Color = -16776961
End With
End Sub

核心改动说明 #

• 插入位置调整：原代码使用ActiveCell.Characters.Count + 1作为插入起点，对应单元格现有文本的末尾位置，将插入起点改为1即可定位到文本最开头，插入后原有文本自动后移，且原有格式完全不受影响。
• 格式定位调整：原代码插入内容在末尾，需要设置格式的P字符位于倒数第二位，现在插入内容在开头，" P "的结构为空格+P+空格，P位于第2位，因此将Characters的第一个定位参数改为2即可精准命中需要设置格式的字符。

可选优化 #

如果不需要插入的符号前后带空格，只需将插入内容改为"P"，同时把格式定位的第一个参数改为1即可。

内容的提问来源于stack exchange，提问作者vlp-1