Sub test() If Not VBA.IsNumeric([a1]) Then MsgBox "非数字"End Sub 转载于:https://www.cnblogs.com/AntipasChen/p/7204923.html