将变量的内容复制到剪贴板 VBA (Excel 2013)

Question

我知道这应该是一个超级简单的解决方案，但我无法理解。

我只是制作一个简单的按钮，将“输出”范围内的值复制到剪贴板。

Private Sub CommandButton1_Click()
Dim Output As String
    Output = Range("Output")
    MsgBox (Output + " Text has been copied")
End Sub

我希望输出复制到我的剪贴板。

编辑：

非常感谢萨姆

Answer 1

我对它做了一个180度的改变，

解决方案如下：

Private Sub CommandButton1_Click()
Dim myData As DataObject
Dim Output As String

Output = UCase(InputBox("Type Text Here"))

If Output = "" Then
End
Else
End If
Set myData = New DataObject
myData.SetText Output
myData.PutInClipboard
MsgBox (Output + " text has been copied")
End Sub