[已解决]请教大神：怎样从A列里提取6位数？谢！

白云无尽9987

888.rar (15.88 KB, 下载次数: 2)

2016-4-13 23:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-13 23:37

Option Explicit

Dim B(1 To 10000, 1 To 1), s
Sub test()
    Dim A, i
    s = 0
    A = Range("a1").CurrentRegion
    For i = 1 To UBound(A)
        Call reg(A(i, 1))
    Next
    [e:e] = ""
    [e1].Resize(s) = B
End Sub


Sub reg(str)
    Dim matchs As Object, match As Object
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\d{6}"
        Set matchs = .Execute(str)
        For Each match In matchs
            s = s + 1
            B(s, 1) = match
        Next
    End With
End Sub

888b.rar (19.88 KB, 下载次数: 9)

2016-4-13 23:36 上传

点击文件名下载附件




如果要输出到D列，自己修改颜色部分。

跳转到最佳答案楼层

爱疯

Option Explicit

Dim B(1 To 10000, 1 To 1), s
Sub test()
    Dim A, i
    s = 0
    A = Range("a1").CurrentRegion
    For i = 1 To UBound(A)
        Call reg(A(i, 1))
    Next
    [e:e] = ""
    [e1].Resize(s) = B
End Sub


Sub reg(str)
    Dim matchs As Object, match As Object
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\d{6}"
        Set matchs = .Execute(str)
        For Each match In matchs
            s = s + 1
            B(s, 1) = match
        Next
    End With
End Sub

888b.rar (19.88 KB, 下载次数: 9)

2016-4-13 23:36 上传

点击文件名下载附件




如果要输出到D列，自己修改颜色部分。