关于随机选取单元格内单个字符条件判断的问题

ccc919

Sub Macro1()
Dim rng As Range, i%
w = Split("楷体,加粗,16 宋体,加粗,12 幼圆,加粗,12 隶书,粗体,18")
Set rng = Application.InputBox("请用鼠标选中文字区域", Type:=8)
For Each m In rng
    For i = 1 To Len(m)
        x = Int(Rnd * 4)
        y = Split(w(x), ",")
        With m.Characters(i, 1).Font
            .Name = "" & y(0)
            .FontStyle = y(1)
            .Size = Val(y(2))
        End With
    Next
Next
End Sub

如此代码，随机选定单元格内的字符格式，但是有个问题，加入单元格内有阿拉伯数字或者有①-⑨之类的这种数字 指定这些数字统一为 宋体,加粗,12 。其他文字正常随机字符格式。

dsmch

设置为文本格式，再输入纯数字