数据装入数组，并通过正则表达分别提取数据

dnvjfdeuff

loirol 发表于 2022-10-11 08:56
照葫芦画瓢呗

高手，太感谢

liulang0808

Sub ttt()
    r = Cells(Rows.Count, 1).End(3).Row
    arr = [a1].Resize(r, 4)
    With CreateObject("vbscript.regexp")
        
        For j = 2 To UBound(arr)
            .Pattern = "\d+-?\d+(?=$)"
            arr(j, 3) = ""
            arr(j, 4) = ""
            If .test(arr(j, 2)) Then
                arr(j, 4) = "'" & .Execute(arr(j, 2))(0)
                arr(j, 3) = .Replace(arr(j, 2), "")
            End If
        
            .Pattern = "\d+(?=$)"
            arr(j, 2) = ""
            If .test(arr(j, 1)) Then
                arr(j, 2) = "'" & .Execute(arr(j, 1))(0)
                arr(j, 1) = .Replace(arr(j, 1), "")
            End If
        Next j
    End With
    arr(1, 1) = "开户行"
    arr(1, 2) = "账号"
    arr(1, 3) = "地址"
    arr(1, 4) = "电话"
    [g1].Resize(r, 4) = arr
End Sub

liulang0808

附件内容供参考。。。。。

smiletwo

wang-way

^(.*?)(\d{3,4}\-?\d{7,8})?$