《VBA 代码解答》（版权所有）是我最早的教程，现在已经出到第三版了。本教程旨在入门后的提高。学习本教程时，重点是理解和掌握我的“积木编程”理念。你应该灵活运用教程中的例子，像积木一样布置你最喜欢的代码。

本课程共三册，147课，内容涵盖面广，也是初中级之间的过渡课程，修订内容主要提供32位和64位兼容代码的程序源代码文件和代码修正，后续会陆续发布给大家，今天的内容是VBA代码解法第十课：使用VBA代码完成抄袭

【分享成果，欢喜正能量】每个人都有自己的节奏，有自己的时区，不要羡慕嘲笑别人，别人有自己的时区，你也有自己的时区！等待合适的时机行动，放松自己，虽然你没有领先，但你也没有落后，在命运安排的自己的时区里，一切都是按时。

第 10 课：使用 VBA 代码完成复制

今天我们来介绍VBA代码解法第十课：如何使用VBA代码完成复制的过程。复制和粘贴是VBA中很基本的操作，VBA代码中如何进行复制和粘贴呢？今天我们就来详细讲解一下。这些代码可以直接在程序中使用，也可以在实际工作中稍加修改，以适合自己的应用环境。希望大家能够结合实际工作，灵活运用。

1 对象复制方法

在 VBA 代码中复制使用对象的 Copy 方法。

其语法如下：Copy()

该参数表示要复制单元格区域的目标区域。如果省略此参数，则该区域将被复制到剪贴板。使用 Copy 方法复制单元格区域时，单元格区域的格式也会被复制。

复制单元格区域时，如果目标区域为非空单元格区域，则会弹出消息框提示是否替换单元格内容，可以设置 . 属性值，避免复制时出现消息框。

2 使用Copy方法完成代码的复制和代码解释

我们来看看下面的实际代码：

Sub（）'第 10 课使用 VBA 代码完成复制

。 =

("9").("A1")..复制 ("10").("A1")

. = 真

子目录结束

代码分析：

上述过程将工作表中单元格A1的当前区域（“9”）复制到工作表中以单元格A1为左上角单元格的区域（“10”）

3 对象方法完成选择性粘贴

上述代码中，第三行代码一般在复制单元格区域时不会复制单元格区域的列宽，如果想在复制单元格区域的同时复制源区域的列宽，可以使用下面的代码。

Sub（）'第 10 课使用 VBA 代码完成复制

("9").("A1")..Copy '复制到剪贴板

使用 ("10").("d1")

. '专门粘贴剪贴板中对象的列宽

. '对象的所有内容

结尾

. = '取消应用程序复制模式

子目录结束

代码截图：

代码分析：

1）第4行使用对象方法选择性地粘贴剪贴板中对象的列宽。

2）第 5 行将对象的全部内容粘贴到剪贴板中。

3）代码第7行取消应用程序复制模式。

（，，，）

1) 参数指定需要粘贴的区域部分，可以是下面列出的常量之一。

-4104 全部（默认）

ers 7 除边框

8 列宽

-4144 评论

-4122 格式

-4123 公式

11 公式和数字格式

6 有效性验证

-4163 值

12 数值和数字格式

2）参数指定粘贴操作。ion 是下列常量之一。

-4142 无（默认）

2 加

3减

4次

5. 划分

3）该参数表示是否跳过空白单元格，若参数值为True，则剪贴板区域中的空白单元格将不会被粘贴到目标区域，默认值为。

4） 参数表示是否转置，若参数值为True，则粘贴区域时行列转置，默认值为。

复制内容：

运行后：

今天的内容致力于：

1 Copy() 的含义是什么？

2 （，，，）是什么意思？

本讲参考程序文件：VBA代码解答（1-19）.xlsm

我20年的VBA实践经验都浓缩到以下教程中：