主题：[求助]如何提取单元格中的数字？

 比如，提取一级表的，如下代码

For Each r As Row In Tables("提取一级单位").rows
    Dim str As String = r("提取名称")
    Dim reg As new System.Text.RegularExpressions.Regex("(?<=" & StrToWide(":") & "+)[\u4e00-\u9fa5]+(?=$| +)")
    Dim mc As Object = reg.matches(str)
    If mc.count = 1 Then
        Dim dr As Row = Tables("汇总数据表").addnew
        dr("提取名称") = mc(0).Value
        dr("核定领导职数") = r("核定领导职数")
        str = r("内设机构数")
        reg = new System.Text.RegularExpressions.Regex("(?<=" & StrToWide(":") & "+.*)[0-9]+(?=$| +)")
        mc = reg.matches(str)
        If mc.count = 1 Then
            dr("内设机构数") = mc(0).Value
        End If
        str = r("实有机构数")
        reg = new System.Text.RegularExpressions.Regex("(?<=" & StrToWide(":") & "+.*)[0-9]+(?=$| +)")
        mc = reg.matches(str)
        If mc.count = 1 Then
            dr("实有机构数") = mc(0).Value
        End If
       
    End If
Next

 http://www.oschina.net/question/12_9507