20-处理单元格数据(复制、粘贴、删除的用法)

excel交流

VBA程序设计的最终目的是什么？更多的当然是为了处理数据。所以，这一贴，将来讲一讲用VBA处理单元格区域。当然，因为我知道的本身不多，所以，并不能把所有的东西都告诉你，我只是举一些简单的例子，供大家学习作参考用。
　　建议大家在读贴的过程中，动动手，亲自试一试，相信这样的亲身经历会给你的学习带来一定的帮助。
　　一、复制单元格区域
　　如果你感到无从着手，别忘了“录制宏”的功能。虽然录制宏生成的代码不是最有效的，但它生成的代码可以为我们提供很多的信息。
　　好了，闲话不说。自行录一段复制A1单元格到B1单元格的宏。打开VBE编辑器，得到如下代码：

1. 
   
2. 　　Sub Macro1()
   
3. 　　'
   
4. 　　' Macro1 Macro
   
5. 　　' 宏由 ggsmart 录制，时间: 2009-8-23
   
6. 　　'
   
7. 
   
8. 　　'
   
9. 　　    Range("A1").Select
   
10. 　　    Selection.Copy
    
11. 　　    Range("B1").Select
    
12. 　　    ActiveSheet.Paste
    
13. 　　End Sub
    
14. 　　

复制代码

除去注释的部分，实际上只有句代码。不用我细讲，大家已经知道它们的作用分别是：第一句选中A1单元格，第二句复制选中的单元格，第三句选中B1单元格，第四句粘贴。
　　但是，就像我们用VBA在单元格输入数据不用先选中它一样，我们同样可以在不选中单元格的情况下就执行复制粘贴命令。所以，以上的代码实际上我们可以简化为：

1. 
   
2. 　　Sub Macro1()
   
3. 　　    Range("A1").Copy Range("B1")
   
4. 　　End Sub
   
5. 　　

复制代码

1. 
   
2. 　　Sub mycopy()
   
3. 　　   Workbooks("book1").Sheets(1).[a1:a10].Copy _
   
4. 　　   Workbooks("book2").Sheets(1).[b1:b10]
   
5. 　　End Sub
   
6. 　　

复制代码

提示：一行的代码过长，可以用空格加下划线进行换行。

复制的区域过大时，对于目标区域，我们可以只指定一个单元格，这时它代表目标区域的左上角单元格。如上面的代码，我们可以写成这样：
　　

1. 
   
2. 　　Sub mycopy()
   
3. 　　   Workbooks("book1").Sheets(1).[a1:a10].Copy _
   
4. 　　   Workbooks("book2").Sheets(1).[b1]
   
5. 　　End Sub
   

复制代码

1. 
   
2. 　　Sub mycut()
   
3. 　　  [a1:a10].Cut [b1]
   
4. 　　End Sub
   
5. 　　

复制代码

三、删除单元格
　　删除一个单元格的命令也很简单，调用Range对象的Delete方法即可。同我们用鼠标操作一样，同样有四个选项，下面以删除A1单元格为例：

1. 
   
2. 　　[a1].Delete Shift:=xlUp '   下方单元格上移
   
3. 　　[a1].Delete Shift:=xlToLeft '    右侧单元格左移
   
4. 　　[a1].EntireRow.Delete '   整行删除
   
5. 　　[a1].EntireColumn.Delete '   整列删除
   
6. 　　

复制代码

只写成[a1].Delete时，默认为“下方单元格上移”。