<menuitem id="e4oab"><tbody id="e4oab"></tbody></menuitem>

【道勤網(wǎng)】- bmrsportswear.com 軟件視頻自學(xué)教程|免費(fèi)教程|自學(xué)電腦|3D教程|平面教程|影視動(dòng)畫教程|辦公教程|機(jī)械設(shè)計(jì)教程|網(wǎng)站設(shè)計(jì)教程！【道勤網(wǎng)】

標(biāo)題: 20-處理單元格數(shù)據(jù)(復(fù)制、粘貼、刪除的用法) [打印本頁]

作者: excel交流 時(shí)間: 2017-9-20 03:45
標(biāo)題: 20-處理單元格數(shù)據(jù)(復(fù)制、粘貼、刪除的用法)
本帖最后由 excel交流于 2017-9-20 03:50 編輯

VBA程序設(shè)計(jì)的最終目的是什么？更多的當(dāng)然是為了處理數(shù)據(jù)。所以，這一貼，將來講一講用VBA處理單元格區(qū)域。當(dāng)然，因?yàn)槲抑赖谋旧聿欢啵�，并不能把所有的東西都告訴你，我只是舉一些簡單的例子，供大家學(xué)習(xí)作參考用。
　　建議大家在讀貼的過程中，動(dòng)動(dòng)手，親自試一試，相信這樣的親身經(jīng)歷會(huì)給你的學(xué)習(xí)帶來一定的幫助。
　　一、復(fù)制單元格區(qū)域
　　如果你感到無從著手，別忘了“錄制宏”的功能。雖然錄制宏生成的代碼不是最有效的，但它生成的代碼可以為我們提供很多的信息。
　　好了，閑話不說。自行錄一段復(fù)制A1單元格到B1單元格的宏。打開VBE編輯器，得到如下代碼：

　　Sub Macro1()
　　'
　　' Macro1 Macro
　　' 宏由 ggsmart 錄制，時(shí)間: 2009-8-23
　　'
　　'
　　 Range("A1").Select
　　 Selection.Copy
　　 Range("B1").Select
　　 ActiveSheet.Paste
　　End Sub

復(fù)制代碼

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

　　Sub Macro1()
　　 Range("A1").Copy Range("B1")
　　End Sub

復(fù)制代碼

[attach]5340[/attach]

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

復(fù)制代碼

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

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

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

復(fù)制代碼

[attach]5341[/attach]

　　Sub mycut()
　　 [a1:a10].Cut [b1]
　　End Sub

復(fù)制代碼

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

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

復(fù)制代碼

只寫成[a1].Delete時(shí)，默認(rèn)為“下方單元格上移”。