正则拆分中文 数字组合

一小伙伴遇到如下问题，想把下图中左边变为右边，数量又大，图只是取其中几个作为案例。

下面我们来看一下如何解决它。

代码如下：

Public Sub 拆分中文数字组合0621()

Dim reg

Set reg = CreateObject('vbscript.regexp')

'正则后期绑定

n = 1 '从第二个开始，所以先赋值1

'以下为正则套路

With reg

   .Global = True

   .Pattern = '[\u4e00-\u9fa5] \d '

   '这是精华部分匹配规则

    Set Rng = Range('a2:a' & Cells(Rows.Count, 1).End(xlUp).Row)

    For Each rn In Rng

        Set matchs = .Execute(rn)

        For Each mat In matchs

            n = n 1

            Cells(n, 2) = mat

        Next

    Next

End With

End Sub

关于我们

【Excel中国合伙人】能为读者做什么？

我们【Excel中国合伙人】微信订阅号平台一直秉承简洁、优雅、高效的为读者分享工作中遇到的每一个Excel问题，不论是Excel技巧、函数、图表、VBA,甚至是有关于Excel的开发，只要你能提出来问题，我们总能给你一个满意的答案！