VBA如何设置单元格不同格式[已解决]

下面的这个单元格里有文本、数字，是由公式链接起来的；我想在不转换成数值的情况下，
设置成数字字体加粗，文本不加粗；就是一个单元格里不同的字体格式；求大神指教，excel 或者VBA实现。

单元格的内容如果是公式，无法实现，必须先把单元格的公式转换成数值。

然后根据如下代码（非通用，需修改），如果你需要现成能直接用的，请上传文件

1. Sub 修改格式()
   
2. 
   
3.     Range("I15").Select '根据需要修改成范围内循环即可
   
4.     With ActiveCell.Characters(Start:=5, Length:=2).Font '括号内的需要加粗的字符串所在位置，可以有多种实现方式，需修改
   
5.         .Name = "等线"
   
6.         .FontStyle = "加粗"
   
7.         .Size = 11
   
8.         .Strikethrough = False
   
9.         .Superscript = False
   
10.         .Subscript = False
    
11.         .OutlineFont = False
    
12.         .Shadow = False
    
13.         .Underline = xlUnderlineStyleNone
    
14.         .ThemeColor = xlThemeColorLight1
    
15.         .TintAndShade = 0
    
16.         .ThemeFont = xlThemeFontMinor
    
17.     End With
    
18. End Sub

复制代码

试试查找替换功能，选项里可以设置很详细，把等号后面的文本“本年销售110万” 替换成“本年销售110万”试试