给你个例子一看就懂了。Sub noky()If Range("a1").NumberFormatLocal <> "@" ThenMsgBox "不是文本格式!"End IfEnd Sub不用我多解释吧?还不明白给我发消息