如何设置复制并粘贴至指定位置的按钮

2025-05-23 21:24:30

推荐回答（2个）

回答1：

引用别人的回答。
这样理解：
在“表1”中有一个表格，我想在旁边设置一个按钮，以实现一键点击后将表格中的内容以数值的方式粘贴到“表2”中的灰色区域

如何设置复制并粘贴至指定位置的按钮？
复制代码：
Sub test()

Worksheets("表1").UsedRange.Copy

Worksheets("表2").Range("a1").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

End Sub

-供参考

回答2：

Sub test()
Worksheets("表1").UsedRange.Copy
Worksheets("表2").Range("a1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub