Excel表格将单独的某个文本批量设置字体大小

如图，例如我想要将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

运行代码后的效果如下：