用正则表达式实现.

http://s5/mw690/001f8HsBgy6IQ1bfce8b4&690

正则表达式自定义函数如下

Function 提取数字并连接组合(Rng As Range)

   Dim Mat As Object, Str As String, k As Integer

   With CreateObject("VBScript.regExp")

       .Global = True

       .Pattern = "\d{1,}"

       If .Test(Rng) Then

           For Each Mat In .Execute(Rng)

               k = k + 1

               If k = 1 Then

                   Str = Mat.Value

               Else

                   Str = Str & "/" & Mat.Value

               End If

           Next

       End If

   End With

   提取数字并连接组合 = Str

End Function

新浪博客:http://weibo.com/u/1139851561

百度空间:http://hi.baidu.com/335081548

腾讯(QQ)微博:http://t.qq.com/huangshifang?preview

更多分享请关注微信号

微信号：Excel335081548 或:

雪山飞狐Excel

喜欢本文，请点击右上角，分享本文。

或扫扫二维码

https://mmbiz.qlogo.cn/mmbiz/iaPxYpQyYlmmiafDo4j9qibWojjjS0ByTSibI8LKNUKnYPXUCMJQBoLAnJ5AnYfZEpZyXg2CkoF08fboHmKSwfe8Wg/0