20-處理單元格數(shù)據(jù)(復(fù)制、粘貼、刪除的用法)

excel交流

VBA程序設(shè)計的最終目的是什么？更多的當(dāng)然是為了處理數(shù)據(jù)。所以，這一貼，將來講一講用VBA處理單元格區(qū)域。當(dāng)然，因為我知道的本身不多，所以，并不能把所有的東西都告訴你，我只是舉一些簡單的例子，供大家學(xué)習(xí)作參考用。
　　建議大家在讀貼的過程中，動動手，親自試一試，相信這樣的親身經(jīng)歷會給你的學(xué)習(xí)帶來一定的幫助。
　　一、復(fù)制單元格區(qū)域
　　如果你感到無從著手，別忘了“錄制宏”的功能。雖然錄制宏生成的代碼不是最有效的，但它生成的代碼可以為我們提供很多的信息。
　　好了，閑話不說。自行錄一段復(fù)制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. 　　

復(fù)制代碼

除去注釋的部分，實際上只有句代碼。不用我細講，大家已經(jīng)知道它們的作用分別是：第一句選中A1單元格，第二句復(fù)制選中的單元格，第三句選中B1單元格，第四句粘貼。
　　但是，就像我們用VBA在單元格輸入數(shù)據(jù)不用先選中它一樣，我們同樣可以在不選中單元格的情況下就執(zhí)行復(fù)制粘貼命令。所以，以上的代碼實際上我們可以簡化為：

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

復(fù)制代碼

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

復(fù)制代碼

提示：一行的代碼過長，可以用空格加下劃線進行換行。

復(fù)制的區(qū)域過大時，對于目標(biāo)區(qū)域，我們可以只指定一個單元格，這時它代表目標(biāo)區(qū)域的左上角單元格。如上面的代碼，我們可以寫成這樣：
　　

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

復(fù)制代碼

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

復(fù)制代碼

三、刪除單元格
　　刪除一個單元格的命令也很簡單，調(diào)用Range對象的Delete方法即可。同我們用鼠標(biāo)操作一樣，同樣有四個選項，下面以刪除A1單元格為例：

1. 
   
2. 　　[a1].Delete Shift:=xlUp '   下方單元格上移
   
3. 　　[a1].Delete Shift:=xlToLeft '    右側(cè)單元格左移
   
4. 　　[a1].EntireRow.Delete '   整行刪除
   
5. 　　[a1].EntireColumn.Delete '   整列刪除
   
6. 　　

復(fù)制代碼

只寫成[a1].Delete時，默認為“下方單元格上移”。