主题：内容提取求助

有一“商品出库”表，有二级编码，商家编码，重量kg，单位，子件，商品数量，卖家备注。其内容是有Excel表中导入的，能否做如下图中的分解：
此主题相关图片如下：qq截图20160406185400.png

把“卖家备注”里面的内容自动分解到后面自动增加的行，*前面的=子件，*后面的=商品数量。

非常实用的东东，感谢老师帮助

导入以后，循环每一行备注，增加行，如代码

For Each dr As DataRow In DataTables("表A").Select("第十列 is not null")
    Dim ary() As String = dr("第十列").split(",")
    For Each s As String In ary
        Dim ndr As DataRow = DataTables("表A").addnew
        Dim a() As String = s.split("*")
        ndr("第三列") = a(0)
        ndr("第四列") = a(1)
        ndr("第五列") = dr("第五列")
    Next
Next

谢谢红袍老师，超实用