@安志斌制作复制写好的代码，然后选择查看代码
Sub AA()
Range("D3").Copy
End Sub
Sub BB()
Range("D4").Copy
End Sub
D3,D4分别代表，需要对应复制内容单元格所在位置；@安志斌制作
@安志斌制作在代码界面选择Sheet（当前表格）点击鼠标右键→插入→模块→粘贴刚刚复制的代码；如图所示@安志斌制作
@安志斌制作选择插入→形状→选择自己喜欢的形状，可以根据需求调整形状的外观，如图所示：@安志斌制作
@安志斌制作对准图形点击鼠标右键，选择指定宏，然后插入相对应的宏指令，然后点击图形后，及可以发现，已经实现了一键复制功能；@安志斌制作
@安志斌制作
@安志斌制作同样的方法将代码粘贴后，指定到图形中，然后就可以实现选中后一键复制任意位置了！
代码如下：
Sub 宏1()
'
' 宏1 宏
'
Selection.Copy
End Sub@安志斌制作我是作者安志斌，如果感觉不错就点击关注吧，谢谢支持！