如图,例如我想要将M16-N19单元格中的“万”字,单独设置字体格式为6号字体
可以用以下代码实现:
Sub SetFontSizeForWan()
Dim cell As Range
Dim pos As Integer
Dim cellValue As String
' 遍历M16到N19单元格
For Each cell In Range("M16:N19")
cellValue = cell.Value
pos = InStr(cellValue, "万")
' 如果找到“万”,则设置字体大小
While pos > 0
cell.Characters(Start:=pos, Length:=1).Font.Size = 6
pos = InStr(pos + 1, cellValue, "万")
Wend
Next cell
End Sub
运行代码后的效果如下: