ExcelVBA正则按顺序拆分文字与数字_雪山飞狐

http://blog.sina.com.cn/u/1139851561

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

ExcelVBA正则按顺序拆分文字与数字

(2014-04-15 19:46:14)

标签：

excel

vba

正则表达式

教育

分类： ExcelVBA

A1单元格

怡景花园1栋10门10层02室

http://s8/mw690/001f8HsBgy6I84HRQwf27&690

Public Sub 文本数字顺序拆分()
    Dim arr       ' 声明变量
    With CreateObject("Vbscript.Regexp")
        .Pattern = "(\d+)"
        .Global = True
        arr = VBA.Split(.Replace(Range("A1"), "、$1、"), "、")
    End With
    Range("B1").Resize(1, UBound(arr) + 1) = arr
End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：ExcelVBA正则分组匹配提取规格、型号、品名、名称

后一篇：正则表达工程引用

新浪BLOG意见反馈留言板　欢迎批评指正