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

在工作中处置数据时，经常会碰着要复制指定单位格（或指定区域）的内容，如何实现像网页上那样一键复制链接功能，这就需要借助于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
选择任一个空单位格，点击“粘贴”按钮即可。