Excel提取单元格中文数据或英文

荆银平 · 发表于 2023-2-27 15:54:42

FunctionTQ(rngAsRange,OptionaliAsString="数字")WithCreateObject("vbscript.regexp")SelectCaseiCase"数字":.Pattern="\d"Case"字母":.Pattern="[a-zA-Z]"Case"汉字":.Pattern="[\u4e00-\u9fa5]"EndSelect.Global=TrueSetmatches=.Execute(rng.Value)ForEachMatchInmatchesa=a&s&MatchNextTQ=IIf(Len(a)>0,a,"")EndWithEndFunction

549669126 · 发表于 2023-3-5 20:43:26

好复杂，可以举例么

XXQ · 发表于 2023-12-29 23:56:05

感谢分享