Vba用户弹窗数据选中复制到指定单元格

可以使用以下代码实现：

Sub CopyData()
Dim data As Variant
data = InputBox("请输入要复制的数据：")
If data <> "" Then
Range("A1").Value = data
End If
End Sub

其中，InputBox 函数用于弹出一个输入框，让用户输入要复制的数据，如果用户输入了数据，则将其复制到 A1 单元格中。