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

通过代码将剪贴板上的内容粘贴到表中，为何换行符 vbcrlf 和 chr(10) & chr(13) 两个结果不一样，怎么解释呢？

请耐心点看完：（中间我点击了一次还原按钮）

此主题相关图片如下：paste+.gif

附上代码，大家可以测试一下。。。。

Dim s As String = "aaaaaa 15000" & vbcrlf & "bbbbbb 10000" & _
vbcrlf & "cccccc 10000" & vbcrlf & "dddddd 5000"
ClipBoard.SetText(s)
CurrentTable.Select(0,0)
CurrentTable.focus
'Application.DoEvents
Syscmd.Edit.Paste()
Application.DoEvents
output.show(CurrentTable.rows(1)("第一列"))
output.show(CurrentTable.rows(2)("第一列"))
output.show(CurrentTable.rows(3)("第一列"))

其实，用 vbcrlf 后粘贴的数据都在单元格中，将行高拉大些就可以看到了，就是第一个单元格不设置行高也可以看到，而它下面的三个格子不知道多了什么，非要拉开行距才可以看到，郁闷之。。。

 
此主题相关图片如下：未命名1.jpg

哈哈： 这个 vbTab 、vbCr不错···