如何定义去除单元格中的汉字的自定义函数？

作者：绿色风分类：时间：2022-08-17 浏览：171

楼主 BIN_YANG168	Q：怎样用自定义函数去除单元格中的汉字? A：按Alt+F11，插入→模块→在VBE窗口中输入以下代码： Function MyGet(Srg As String, Optional n As Integer = False) Dim i As Integer Dim s, MyString As String Dim Bol As Boolean For i = 1 To Len(Srg) s = Mid(Srg, i, 1) If n = 1 Then Bol = Asc(s) < 0 ElseIf n = 2 Then Bol = s Like "[a-z,A-Z]" ElseIf n = 0 Then Bol = s Like "#" End If If Bol Then MyString = MyString & s Next MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString)) End Function 然后在B2单元格输入需要缩写的文本，在其他单元格输入=MYGET(B2,2)&IF(MYGET(B2)=0,"",MYGET(B2))即可。去除单元格中的汉字.rar
2楼 yaoandxu2011	自动化啊
3楼 jerryjhx	“然后在B2单元格输入需要缩写的文本” 这句话具体怎么理解啊，到底在B2单元格输入什么，直接输入不是把原来文本覆盖了吗？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表