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 ‘选择网页链接所在单元格

Selection.Copy      ’复制网页链接

End Sub

Sub 粘贴()

Dim rng As Range

Set rng = Selection

ActiveSheet.Paste  ‘粘贴

End Sub

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

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