只能实现单元格是中文或英文
你可以先默认一种字体,然后用下写的代码把所以英文改成另一种
========
Sub 按钮1_Click()
Dim hhh
Dim sss
For hhh = 1 To 30
For sss = 1 To 10
rng = Cells(hhh, sss).Text
If LenB(rng) - Len(rng) <> 0 Then
Cells(hhh, sss).Select
With Selection.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End If
Next
Next
End Sub
=======