好吧问答库 > Excel 中，怎么一次性设置中文用一种字体，然后西文用一种字体，感谢

Excel 中，怎么一次性设置中文用一种字体，然后西文用一种字体，感谢

2024年11月23日 09:17

有1个网友回答

网友（1）：

这个最好还是用VBA方便快捷
Sub imKuro()
Dim Ros, Cos
For Ros = 1 To Range("A34567").End(xlUp).Row
For Cos = 1 To Range("CA" & Ros).End(xlToLeft).Column
If Asc(Cells(Ros, Cos).Value) <= 48 Then
Cells(Ros, Cos).Font.Name = "黑体"
Cells(Ros, Cos).Font.Color = RGB(248, 12, 13)
Else
Cells(Ros, Cos).Font.Name = "宋体"
Cells(Ros, Cos).Font.Color = RGB(11, 14, 197)
End If
Next
Next
End Sub
有时候因为版本问题，遇到数字0开头的也以中文汉字格式显示，可以用ACS函数测一下汉字的ASCII码，如果返回为负数，把“ If Asc(Cells(Ros, Cos).Value) <= 48 Then ”这句的等号去掉，显示正常，字体自己改需要的字体。