注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Oh! I see you!

Hi! ppmm~~

 
 
 

日志

 
 

Excel如何提取某一串字符中的第一段连续字母  

2014-05-07 23:11:28|  分类: Excel |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

本文链接:http://oicu.cc.blog.163.com/blog/static/123039471201447111035664/

发信人: Caps (天也不懂情), 信区: OfficeSoft
标  题: 请问如何提取某一串字符中第一个连续是字母的字母?
发信站: 水木社区 (Wed May  7 22:35:54 2014), 站内

请问如何提取某一串字符中第一个连续是字母的的字母?这里的连续是指

连续字母肯定大于等于2。

例如字符串是  a  abc       一二三       abcd     我需要提取abc

请注意字符串前后和中间都有数量不等的空格,请大拿们赐教,谢谢!


参考以前的日志:

Excel vba调用js将UTF-8编码转换为汉字
http://oicu.cc.blog.163.com/blog/static/123039471201341110723637/

提取Excel单元格的数字相加-求和(续文)
http://oicu.cc.blog.163.com/blog/static/123039471201132011345331/

'2014/05/07
Function RegExpGetStr(T As Range)
    Dim regEx, Matches
    Application.Volatile
   
'by oicu#lsxk.org
    Set regEx = CreateObject("vbscript.regexp")
    regEx.Pattern = "\b([a-zA-Z]){2,}\b"
    'regEx.Pattern = "\b([a-z]|[A-Z]){2,}\b"
    'no support [a-Z]
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.MultiLine = False
    Set Matches = regEx.Execute(T.Text)
    RegExpGetStr = CStr(Matches(0))
End Function

'当然也可以用JS,可用于wps专业增强版
Function RegExpGetStrJS(szInput)
    Set js = CreateObject("MSScriptControl.ScriptControl")
    js.Language = "JavaScript"
    js.AddCode "function decode(str){reg=/\b[a-z]{2,}\b/i;return str.match(reg);}"
   
    '如果要匹配从右边数的第一个可以这样
    'js.AddCode "function decode(str){return str.replace(/.*(\b[a-z]{2,}\b).*/gi,'$1');}"
   
    RegExpGetStrJS = js.Eval("decode('" & szInput & "')")
End Function

  评论这张
 
阅读(8676)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018