Excel VBA一键复制内容，粘贴到所选单元格

1、本教程以复制粘贴一个网页链接（百度首页链接）为例。

2、本教程的网页链接放在C14单元格；

3、制作按钮，具体操作：菜单栏“插入”—“形状”；

4、设置按钮格式：（本教程设置如下，仅供参考）1.字体格式：宋体，黑色加粗，字号11。2.形状格式：形状填充 深色 15%；形状轮廓 无轮廓；形状效果 棱台。PS：粘贴按钮制作方法与复制按钮一样。

5、从Excel窗口进入VBA窗口，方法可参考Excel2007打开VBA的三种方法！https://jingyan.baidu.com/article/066074d61a370dc3c21cb0ec.html

6、插入模板，输入代码：Sub 复制()Cells(14, 3).Select ‘选择网页链接所在单元格Sele艘早祓胂ction.Copy ’复制网页链接End SubSub 粘贴()Dim rng As RangeSet rng = SelectionActiveSheet.Paste ‘粘贴End Sub

7、回到Excel窗口，点击“复制链接”按钮，可以看到网页链接已经复制到了剪贴板中。

8、选择任一个空单元格，点击“粘贴”按钮即可。