主题：老师们看看这个问题 换行符vbcrlf 和chr(10) & chr(13)

估计老六只取回车符来，现在可这样

因数据贴到论坛时会自动将tab换成空格，所以改成下面这样方便大家测试。

Dim s As String = "aaaaaa" & vbTab & "15000" & vbCr  & "bbbbbb" & vbTab & "10000"  & _
vbCr  & "cccccc" & vbTab & "10000" & vbCr  & "dddddd" & vbTab & "5000"
ClipBoard.SetText(s)
CurrentTable.EditPaste()