是复制单元格内容而不是复制单元格
要复制单元格直接用COPY方法我也知道
请问如何复制单元格的内容呢，而且要复制到剪贴板？
谢谢大家
在对单元格处理的代码中没有这样的方法，但可利用窗体控件的方法间接把单元格的内容复制到剪贴板中。附件中的代码是将选中的单元格（活动单元格）内容复制到剪贴板中。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-01-19
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
'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
