Question

如何用VBA代码复制单元格内容到剪贴板？

是复制单元格内容而不是复制单元格
要复制单元格直接用COPY方法我也知道
请问如何复制单元格的内容呢，而且要复制到剪贴板？
谢谢大家

Answer 1

在对单元格处理的代码中没有这样的方法，但可利用窗体控件的方法间接把单元格的内容复制到剪贴板中。附件中的代码是将选中的单元格（活动单元格）内容复制到剪贴板中。

Answer 2

Public Sub XieRu(a, R As Range)
'a：待写入数组；R：写入起始位置
Dim d As Object
Set d = New DataObject
d.SetText Join(a, vbLf)
d.PutInClipboard
R.Select
ActiveSheet.Paste
Set d = Nothing
End Sub

其中d.PutInClipboard就是将数据输入到剪贴板。该代码用到DataObject，所以要引用microsort forms 2.0