excel 批量设置同一单元格中中英文的不同字体

恐怕要执行一段VBA代码

Sub myFont()
Application.ScreenUpdating = False
Dim i!, rC As Range
For Each rC In Selection
    For i = 1 To Len(rC)
        If Abs(Asc(Mid(rC, i, 1))) < 161 Then
            rC.Characters(i, 1).Font.Name = "Times new roman"
        Else
            rC.Characters(i, 1).Font.Name = "楷体"
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

打开你的工作簿，Alt+F11打开VB编辑器，把上面的代码拷贝后贴进去，关闭VBA编辑器

选中需要做这个动作的单元格或区域，工具 宏 宏，运行既可

附件可参考

双击编辑单元格，选中要设置的内容——设置字体

我的太啰嗦了，看“万年金刚钻”的，那是高人

以下适用于2016版，不适用于楼主的10版，点击单元格分别设置一个英文字体，再重复设置一个中文字体，表格会自动识别中英文并分别设置的，希望对后面版本的提问者有帮助。