复制后粘贴到邮箱或者QQ的时候是内容，不是和表格一起复制过来，
第1个回答 2017-02-21
Sub CopyToClipbox()
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText "要复制的文字"
.PutInClipboard
End With
End Sub本回答被提问者采纳
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText "要复制的文字"
.PutInClipboard
End With
End Sub本回答被提问者采纳
第2个回答 2017-02-19
rang("A1").copy追问
这样拷贝的粘贴到QQ的时候不是数值，是表格都一起过来了
追答数值 = Range("A1").Text
你将数值赋给QQ就行了，要不你把代码附上
1
