主题：如何将字符串里面的数字和字母分离出来

 你有没有认真看完3楼，把第一句替换成你对应单元格的值就行啊。

If e.DataCol.name = "制造产品号" AndAlso e.newvalue > "" Then
    Dim zml() As String = {"字母列1", "字母列2"}
    Dim szl() As String = {"数字列1", "数字列2"}
    Dim s As String = e.newvalue
    Dim p As String = "\d+"
    Dim mc = System.Text.RegularExpressions.Regex.Matches(s, p)
    For i As Integer = 0 To mc.count-1
        e.DataRow(szl(i)) = mc(i).value
    Next
   
    p = "[a-zA-Z]+"
    mc = System.Text.RegularExpressions.Regex.Matches(s, p)
    For i As Integer = 0 To mc.count-1
        e.DataRow(zml(i)) = mc(i).value
    Next
End If