主题：可以从粘贴板直接分别粘贴到各个列里面吗？

 测试了一下，这样获取数据，如何写入单元格自己想办法

Dim Info As String = Tables("表A").Current("第十列").replace(chr(10) & "        ", "")
Dim reg As new System.Text.RegularExpressions.Regex("(?<=.+:{1} {1}).+")
Dim mc As object = reg.Matches(info)
For i As Integer = 0 To mc.count - 1
    output.show(mc(i).value)
Next

 请参考2楼代码自己改一下来用。