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

dnvjfdeuff · 发表于 2022-10-11 08:01

liulang0808 · 发表于 2022-10-11 08:29

Sub ttt()
r = Cells(Rows.Count, 1).End(3).Row
arr = [a1].Resize(r, 2)
With CreateObject("vbscript.regexp")
      .Pattern = "\d+(?=$)"
      For j = 2 To UBound(arr)
         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) = "账号"
[g1].Resize(r, 2) = arr
End Sub

liulang0808 · 发表于 2022-10-11 08:29

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

pjiang · 发表于 2022-10-11 08:43

liulang0808 发表于 2022-10-11 08:29
Sub ttt()
r = Cells(Rows.Count, 1).End(3).Row
arr = [a1].Resize(r, 2)

请教一下老师：正则表达式中的(?=$) 的作用是什么？

loirol · 发表于 2022-10-11 08:47

本帖最后由 loirol 于 2022-10-11 08:54 编辑

pjiang 发表于 2022-10-11 08:43
请教一下老师：正则表达式中的(?=$) 的作用是什么？

百度零宽断言

只提取尾巴上的\d+

dnvjfdeuff · 发表于 2022-10-11 08:50

liulang0808 发表于 2022-10-11 08:29
Sub ttt()
r = Cells(Rows.Count, 1).End(3).Row
arr = [a1].Resize(r, 2)

谢谢，第一步是准确了，下面还有一个地址

dnvjfdeuff · 发表于 2022-10-11 08:51

liulang0808 发表于 2022-10-11 08:29
Sub ttt()
r = Cells(Rows.Count, 1).End(3).Row
arr = [a1].Resize(r, 2)

谢谢，第一步是准确了，下面还有一个地址

dnvjfdeuff · 发表于 2022-10-11 08:52

liulang0808 发表于 2022-10-11 08:29
Sub ttt()
r = Cells(Rows.Count, 1).End(3).Row
arr = [a1].Resize(r, 2)

谢谢，第一步是准确了，下面还有一个地址

loirol · 发表于 2022-10-11 08:56

dnvjfdeuff 发表于 2022-10-11 08:52
谢谢，第一步是准确了，下面还有一个地址

照葫芦画瓢呗

loirol · 发表于 2022-10-11 08:57

副本2022.09.7z (17.9 KB, 下载次数: 6)

		自动登录	找回密码
密码			免费注册