复制如下代码，其中L2为要转换的单元格位置；"[DBNum1]"为小写中文数字，如一、二、三等等；"[DBNum2]"为大写中文数字，如壹、贰、叁等等。
=TEXT(L2,"[DBNum1]")
其中，直接使用上面的"[DBNum1]"，大于9，小于20中间的会变成一十一、一十二等等，解决这个问题的办法是使用if来判断，把代码改成下面的就可以了
=IF(ROW(L2)>20,TEXT(L2,"[dbnum1]"),TEXT(L2,"[dbnum1]d"))
"[DBNum2]"大于9，小于20中间还是会变成类似上面的，可以使用"[DBNum20]"来实现如上功能。
注："[DBNum20]"在WPS下实现，因为本电脑未安装EXCEL，所以没有测试。理论上是可以实现的。
如果内容对你有用，请花费几秒钟给个评论！
由于评论审核机制，可能您的评论暂时不可见，不影响查看回复可见的内容！
扫描二维码推送至手机访问。
版权声明：本文由云淡风轻Mr.Liu发布，如需转载请注明出处。
更多实用VBA小代码，请持续关注本公众号，设定中的小代码系列一共有108集哦~0，工作表处理：（点击目录，即可跳转到相关文章，不用回复关键词）VBA常用小代码001：一键生成带超链接的工作表目录VBA...
随着互联网的高速发展，网页数据愈发成为数据分析过程中最重要的数据来源之一。也许正是基于这样的考量，从2013版开始，Excel新增了一个名为Web的函数类别，使用其下的函数，可以通过网页链接从Web服...
Word提供的邮件合并功能可以帮助咱们轻松的制作工资条、通知书、邀请函、明信片、准考证、毕业证书等等，一般做法是用Word文档做一个模板，将信息的数据源存放到Excel表格里，通过邮件合并建立起表格与...
之前我们分享了一期小代码，内容是如何将word中表格的数据读入excel……之后有朋友表示知道了，又问如何将excel中的数据写入word……此时此刻，我再一次清醒的意识到，这世界上像我这样好的人已经...
晚上好啊都……呃……不知道该说什么了，直接说正事吧……话说我最近比较懒……不是，我最近事情比较多……你们在后台提了很多问题，有一部分是我们之前分享过的，戳菜单【VBA相关】→【常用小代码】，可见详情；...
