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
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024