Question

在EXCEL中，如何使用VBA设置单元格内指定字符串格式

如A1=“字符串格式”，指定字符串为“格式”，运行宏后A1中的 “格式” 两个字加粗

Answer 1

Sub ss()
Dim j As Long
j = InStr(Range("A1"), "格式")
With Range("A1")
.Font.FontStyle = "正常"
.Characters(Start:=j, Length:=2).Font.FontStyle = "加粗"
End With
End Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1") .Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"

Answer 2

代码如下：
Sub aa()
With Range("A1")
.Clear
.Value = "字符串格式"
.Characters(4, 2).Font.FontStyle = "加粗"
End With
End Sub

Answer 3

Sub Bold()
'
' Bold Macro
'

'
Range("A1").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.FontStyle = "加粗"
End With
Range("A1").Select

End Sub

希望对你有帮助。