下面代码实现的是上图第21、22行多值列拆分成单行 的第二列每行超过4个字符不是想要的效果

求助修复下面代码，求助实现上图第1到第20行的效果，也就是表 多值列拆分成单行 的第二列每行只有4个字符

Dim r As Row = Tables("表A").Current

If r.IsNull("第一列") = False AndAlso r.IsNull("编号") = False Then \'如果没有输入出生日期

    Dim bh As String = r("编号")

    For Each s As String In r("第一列").Replace(vbcr, "").split(vblf)

        Dim dr As DataRow

        dr = DataTables("多值列拆分成单行").Find("编号 = \'" & bh & "\' and 第二列 = \'" & s & "\'")

        If dr Is Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing

            Dim rb As Row = Tables("多值列拆分成单行").addnew

            rb("编号") = bh

            rb("第二列") = s

        End If

    Next

End If