Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1786|回复: 1

[已解决]哪位大神可以解释一下关于正则的红体代码是什么意思呢?

[复制链接]
发表于 2016-4-24 09:56 | 显示全部楼层 |阅读模式
本帖最后由 lingyuncelia1 于 2016-4-24 12:35 编辑

Sub yy()
Dim brr(1 To 10000, 1 To 5)
arr = [a1].CurrentRegion
  Set regx = CreateObject("vbscript.regexp")
       regx.Pattern = "(\d{6})(.*省)(.*市)(.*)"
For i = 1 To UBound(arr)
        Set mh = regx.Execute(arr(i, 1))
        If mh.Count <> 0 Then
        A = A + 1
            For j = 0 To mh(0).submatches.Count - 1
                brr(A, j + 1) = mh(0).submatches(j)
            Next
        End If
    Next
    Sheets("B").Range("A2").Resize(UBound(arr), 5) = brr
End Sub
哪位大神可以解释一下关于正则的红体代码是什么意思呢?



最佳答案
2016-4-24 11:57
ad1.rar (232.88 KB, 下载次数: 11)

ad1.rar

213.8 KB, 下载次数: 7

发表于 2016-4-24 11:57 | 显示全部楼层    本楼为最佳答案   
ad1.rar (232.88 KB, 下载次数: 11)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:06 , Processed in 0.440529 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表