求VBA截取数据代码

mysycf

求VBA截取数据代码，高手请出手。谢谢！

jiangxiaoyun

夸不得

Sub 提取()
Set regx = CreateObject("vbscript.regexp")
With regx
  .Global = True     '全局匹配
  .Pattern = "\d+\.?\d+"  '指定匹配条件
    For Each Rng In Sheet1.Range("g1:g" & Sheet1.Cells(Rows.Count, "g").End(3).Row)
        Set k = regx.Execute(Rng)
            n = n + 1
        If k.Count = 3 Then
            Sheet2.Cells(n, "m") = k(0) * 1
            Sheet2.Cells(n, "p") = k(1) * 1
            Sheet2.Cells(n, "r") = k(2) * 1
        End If
    Next
End With
End Sub