【分享成果，随喜正能量】这世间水流花开，一切都是现成的风景，每个时刻都是进行时，

每个时刻都是定格的故事。活一回岁月，活的就是这份思索中的当下和放过，传递的就是这样一种智慧。在这风景中提高自己，是一份不懈努力的故事。

《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第10讲：VBA代码之复制粘贴操作

第十讲 利用VBA代码完成复制

今日给大家推出VBA代码方案第十讲：如何利用VBA代码完成复制的过程。在EXCEL中复制和粘贴是非常基本的操作，在VBA代码中复制和粘贴是如何操作的呢？今日给大家详细的讲解。这些代码可以在程序中可以直接利用，也可以在实际工作中稍加修改，以适合自己的应用环境，希望朋友们能活学活用。结合自己的实际工作灵活运用。

在VBA代码中的复制是利用Range对象的Copy方法，

参数Destination表示复制单元格区域的目标区域，如果省略该参数，Excel将把该区域复制到剪贴板中。使用Copy方法复制单元格区域时，也复制了该单元格区域的格式，

复制单元格区域时，如果目标区域为非空单元格区域，Excel将显示消息框提示是否替换单元格内容，可以设置Application.DisplayAlerts属性值为False，使复制时不出现该消息框。

2 利用Copy方法完成复制的代码及代码解读

我们看下面的实际代码：

上面过程将Sheets("9")工作表中A1单元格的当前区域复制到Sheets("10")工作表中以A1单元格为左上角单元格的区域

上述代码中，第2行代码通常复制单元格区域的操作不会将单元格区域的列宽大小同时复制，如果希望在复制单元格区域的同时，也复制源区域的列宽大小，可以使用下面的代码。

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

2）第5行代码粘贴剪贴板中的Range对象全部内容。

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

• 应用于Range对象的PasteSpecial方法将剪贴板中的Range对象粘贴到指定区域，在粘贴时可以有选择的粘贴对象的部分属性。其语法如下：

1）参数Paste指定要粘贴的区域部分，可为如下所列的XlPasteType常量之一。

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

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

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解

第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程

第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）

第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解

第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解

第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用

第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解

第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用

① 7→1→3→2→6→5或者7→4→3→2→6→5。

• 如何学习VBA呢? 概括的说就是: 学习过程中要信、解、受、持，更要有回向的业力。无论您在学习的任何阶段，都要对照教程的知识点加持自己的实际工作，总会有丰厚的收获。

我首先要说的是,我对Excel和VBA的经验仅限于我在学校看到的.我有编程经验,但在其他语言.

我有一个文件,我每周都会得到.此文件的结构始终相同:ID,名称,日期,1到4之间的值,不相关的数据.

此数据通过"全选"按钮(工作表的左上角,MS excel 2013中单元名称下方的小三角形)进行选择,然后复制到另一个默认文件中,该文件将重新显示数据以在不同的工作表中显示和过滤基于1-4值和日期.

我的问题:如何检测何时粘贴数据？我已经尝试过Worksheet.Change事件,但粘贴命令(CTRL + V)不会触发Change事件.另外,如何复制数据？它是逐行更新,逐个单元(哪个方向),......？我知道一旦我能够检测到复制命令,我就可以通过调试来轻松找到最后一个问题的答案,但你永远不知道是否有人知道答案.

还有另一种更简单(或更好)的方法吗？

如果需要,可以提供更多数据和信息.

编辑:'......有/正在被复制？' 改变为粘贴,因为它应该是.