如何编写返回字符串中首个汉字与最后一个汉字所在位置的自定义函数呢？

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

楼主 0Mouse	Q：如何编写返回字符串中首个汉字与最后一个汉字所在位置的自定义函数呢？示例： A：可以采用正则表达式，也可以使用循环判断，代码如下： '自定义函数1：正则表达式（xmyjk） Function wz(s As String) As String Dim mchs, mch With CreateObject("vbscript.regexp") .Global = True .Pattern = "[\u4e00-\u9fa5]" Set mchs = .Execute(s) End With wz = "第一个中文是:" & mchs(0).Value & "，位置:" & mchs(0).firstindex + 1 & _ ",最后一个中文是:" & mchs(mchs.Count - 1).Value & ",位置:" & mchs(mchs.Count - 1).firstindex + 1 End Function 用法：在B2单元格内输入“=wz(A2)”下拉。 '自定义函数2：循环判断 Function HZ(rg As String, Optional lx As Boolean = False) As Byte 'Optional代表“可选的”，lx参数缺省值为False Dim i As Integer If lx Then '如果参数lx为True For i = Len(rg) To 1 Step -1 '逆循环 If Mid(rg, i, 1) Like "[一-龥]" Then HZ = i Exit For End If Next Else '如果参数lx为False For i = 1 To Len(rg) '正循环 If Mid(rg, i, 1) Like "[一-龥]" Then HZ = i Exit For End If Next End If End Function 用法：在B3输入“=Hz(A3,FALSE)”或者“=Hz(A3)”下拉，在C2输入“=Hz(A3,TRUE)”下拉。附件：返回字符串中首个汉字与最后一个汉字所在位置的自定义函数.rar
2楼い卋玑┾宝珼	学习ING
3楼 hzpqu	不错不错，楼主是个绝对高手
4楼 CheryBTL	啊？这个也可以自定义函数？跟着老师学习VBA
5楼老糊涂	学习ING

免责声明

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

评论列表