Question

VBA实现复制单元格内容纯数值到剪贴板

复制后粘贴到邮箱或者QQ的时候是内容，不是和表格一起复制过来，

Answer 1

Sub CopyToClipbox()
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText "要复制的文字"
        .PutInClipboard
    End With
End Sub

Answer 2

rang("A1").copy

追问

这样拷贝的粘贴到QQ的时候不是数值，是表格都一起过来了

追答

数值 = Range("A1").Text
你将数值赋给QQ就行了，要不你把代码附上

追问

1