word一般默认的是宋体,而英文和数字默认的是Now Times Roman体。为了使数字和英文更加显眼可以选择全文,设置字体格式,在英文字体框中选择较粗的一种字体,如Arial体等。英文字体较多,是供人使用的,你可以选择你认为合适的就ok,没有太多的规则。有些场合,如公文,字体都有格式规定,更改默认设置也不太好,还是自己手工设置合适。
Sub aa() Dim str As String Dim i As Integer Dim a As Range Set a = Range("a1:a10") '选择的范围 For Each b In a str = b.Cells For i = 1 To Len(str) If Asc(Mid(str, i, 1)) < 0 Then b.Cells.Font.Name = "黑体" Else b.Cells.Font.Name = "Arial" End If Next i NextEnd Sub