将一个区域的值复制到剪粘板中

作者：绿色风分类：时间：2022-08-18 浏览：152

楼主
罗刚君

Range.Copy方法可以将一个区域复制到剪贴板，当然粘贴后仍然是一个区域
如果需要将区域的值复制到粘贴板，粘贴后只有一个字符串，而不是一个区域应如何做呢？
请按以下步骤操作：
1.添加引用

引用.png
这一步有简便方法，插入一个窗体再删除窗体就行了。
2.在模块中插入以下代码：

Sub 将A1到A4的值复制到粘贴板中()
Dim MyData As DataObject, rng As Range, Mystr As String
Set MyData = New DataObject
For Each rng In Range("a1:a4")
Mystr = Mystr & rng.Value
Next rng
MyData.SetText Mystr
MyData.PutInClipboard
End Sub>

执行代码后，剪贴板中有A1:A4的值，当调用剪贴板执行粘贴操作时，粘贴结果在一个单元格中，而不是在一个区域中。
而且此方法是将区域的值放在剪贴板中，随时可以调用，而且可以反复粘粘。
以下代码可以将A1:A4复制到A10:A13中，它是一次性复制，剪贴板是空的，不能重复粘贴。
Range("a1:a4").Copy Range("a10")

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表