或者vba宏,Sub kkkk()
Set ra = Range("a1:a6") '要处理的单元格区域
For Each s In ra
m = Len(s)
For x = 1 To m
txt = Mid(s, x, 1)
If txt Like "[A-z]" Then
fname = "宋体"
ElseIf txt Like "[0-9]" Then
fname = "等线"
Else
fname = "黑体"
End If
s.Characters(x, 1).Font.Name = fname
Next
Next
End Sub
KVP函数专家、创作者俱乐部成员
创作者俱乐部成员
@金山办公