主题：可以分解列到其他吗？

 你知道你为什么招人讨厌吗？因为即便人家帮你写好了，你也不会用，白费别人的力气。

 代码写到datacolchanged事件

Select Case e.DataCol.Name
    Case "订单详解"
        If e.NewValue <> Nothing Then
            Dim Info As String = e.NewValue.replace(chr(10) & "        ", "")
            Dim reg As new System.Text.RegularExpressions.Regex("(?<=.+:{1} {1}).+")
            Dim mc As object = reg.Matches(info)
            If mc.count = 6 Then
                e.DataRow("姓名") = mc(0).Value
                e.DataRow("地址") = mc(1).Value
                e.DataRow("邮编") = mc(2).Value
                e.DataRow("固定电话") = mc(3).Value
                e.DataRow("移动电话") = mc(4).Value
                e.DataRow("订单编号") = mc(5).Value
            End If
        End If
End Select

 代码

Dim s As String = ClipBoard.GetText()
s = s.Replace(chr(10), "").Replace("Address", chr(13) & "Address").Replace("Zip Code", chr(13) & "Zip Code").Replace("Mobile", chr(13) & "Mobile").Replace("Tel", chr(13) & "Tel").Replace("No", chr(13) & "No")
Dim nr As Row = Tables("表A").AddNew
nr("订单详解") = s
For Each str As String In s.Split(Chr(13))
    Dim ss As String() = str.Split(":")
    If ss.length > 1 Then
        Dim cs As String = ss(0)
        Select Case cs.trim()
            Case "Contact Name"
                nr("姓名")=ss(1)
            Case "Address"
                nr("地址")=ss(1)
            Case "Zip Code"
                nr("邮编")=ss(1)
            Case "Mobile"
                nr("移动电话")=ss(1)
            Case "Tel"
                nr("固定电话")=ss(1)
            Case "No"
                nr("订单编号")=ss(1)
        End Select
    Else
       nr("地址") = nr("地址") & ss(0)
    End If
Next

你有试过么？测试可用