主题：剪贴板

设计个按钮代码，怎么把表A的筛选出的  第一列 和 第三列  这两列的内容加入到剪贴板中，然后到excel中粘贴，贴在在excel中的相邻两列中

老师，行数若很多，代码怎么写？

谢谢，功能实现了，但看不太懂，有帮助文件或什么说明吗

 

特别是这句

s = s.TrimStart(new Char(){vbcr,vblf})

老师，请问我把代码改成把选中的区域，加到剪贴板，粘贴后都跑到一列中了，请问错在哪了

 

 

Dim t As Table = Tables("表A")
Dim s As String
For j As Integer = t.leftcol To t.rightcol
For i As Integer = t.TopPosition To t.BottomPosition
   s = s & vbcrlf & t.Rows(i)(j) & vbtab     
Next
Next
s = s.TrimStart(new Char(){vbcr,vblf})
ClipBoard.SetText(s)

测试了一下

粘贴前

第一列	第二列
1111	2222
	2222

  

 

粘贴后变样了

 

 

第一列	第二列
1111	2222
2222