主题：如何以表中mm为标签，提取之前的标红部分数据

您好！请问如何用代码来提取表中标红部分，并将其设置为新的一列（数据变了也能提取）
此主题相关图片如下：捕获.png

参考   Dim str As String = "001 8889  4.045 mm     5920m/s" Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9.]+(?=.*?mm)") msgbox(mc(mc.count-1).value)

您好！这个只能一次提取一行，能不能一次性提取一列的

关键是上面代码，多行的话，加循环

您好！这个要的是在数据更改了的情况下也能对表中NoName列的标红部分进行提取（格式一样，只改变标红部分）

For Each r As Row In Tables("表A")
    Dim str As String = r("第一列")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9.]+(?=.*?mm)")
    r("第二列") = mc(mc.count-1).value
Next

谢谢您！那怎样将最前面编号（标红部分）提取出来？
此主题相关图片如下：1.png

 

For Each r As Row In Tables("表A")
    Dim str As String = r("第一列")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9.]+(?=.*?mm)")
    r("第二列") = mc(mc.count-2).value
Next