主题：将某列的字符拆成两列

 参考下面的代码来改，弄不好的话，上传一个例子，说明要怎么做。

Dim data() As String = {"1020mm*100M", "36""*50ft"}
For Each d As String In data
    Dim ary() As String = d.Split("*")
    ary(0) = ary(0).Replace("mm", "").Replace("""", "*25.4")
    ary(1) = ary(1).Replace("M", "").Replace("ft", "*0.3048")
    msgbox(ary(0) & "   " & ary(1))
Next

 把下面的代码复制到命令窗口执行，可以一次性填入数据。

For Each dr As DataRow In DataTables("物料表").Select("规格型号 is not null")
    Dim sps() As Char = {"*", "x", "X"}
    Dim ary() As String = dr("规格型号").split(sps)
    Dim width As String = ary(0).Replace("m", "").Replace("M", "").Replace(" ", "").Replace("""", "*25.4")
    Dim height As String = ary(1).Replace("m", "").Replace("M", "").Replace(" ", "").Replace("ft", "*0.3048").Replace("y", "").Replace("Y", "")

    dr("规格型号_宽mm") = Eval(width)
    dr("规格型号_长M") = Eval(height)
Next