求助大神，VBA代码查找

fyzcwsp · 发表于 2024-12-16 21:37

本帖最后由 fyzcwsp 于 2024-12-16 21:41 编辑

小白一个，求助如何把左列数据中的一部分数据对应提取到G列和H列。数据比较多，谢谢帮助

chxw68 · 发表于 2024-12-16 22:07

详见附件。

z865593849 · 发表于 2024-12-17 08:20

提取数据

usedrange · 发表于 2024-12-17 10:12

参与一下。。。。。

usedrange · 发表于 2024-12-17 10:13

。。。。。。。。。。。。。。。。。。。

gwjkkkkk · 发表于 2024-12-17 20:16

Option Explicit
Sub TEST1()
Dim ar, br, i&, r&

ar = [A1].CurrentRegion.Value
ReDim br(1 To UBound(ar), 1) As String

With CreateObject("VBScript.RegExp")

      For i = 1 To UBound(ar)
         .Pattern = "\d+N\d+"
         If .test(ar(i, 1)) Then
            r = r + 1
            br(r, 0) = .Execute(ar(i, 1))(0).Value
         End If
         .Pattern = "[\d\/\s:]+"
         If .test(ar(i, 1)) Then
            br(r, 1) = .Execute(ar(i, 1))(0).Value
         End If
      Next i
End With

If r Then [F10].Resize(r, 2) = br
Beep
End Sub

gwjkkkkk · 发表于 2024-12-17 21:08

。。。。。。。。。。。

fyzcwsp · 发表于 2024-12-18 19:23

非常感谢各位的帮助

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