1丨

選中或激活

Sub SelectActivate()    Range('a1:c10').Select    '此時(shí)默認(rèn)活動(dòng)單元格為矩形右上角第一個(gè)單元格    '也就是A1    Range('a5').Activate    '在被選取的A1:A10區(qū)域中激活A(yù)5單元格End Sub

正確代碼如下▼

Sub ShtRngR()    Worksheets('測(cè)試').Select    '先選取激活工作表，再選取工作表內(nèi)的單元格    Range('a1').SelectEnd Sub

2丨

清除單元格中的信息

相關(guān)代碼都可以通過(guò)錄制宏獲取，不過(guò)最常用的有兩條沒有魚，還是需要花費(fèi)7秒時(shí)間記憶一下。

一條是全部清除單元格的各種信息，包括單元格格式、邊框線等。

另外一條是只清除單元格的內(nèi)容，保留格式等其他信息，常用于清空模版數(shù)據(jù)，以待放置新數(shù)據(jù)。

Sub CellsClearContents()    Cells.ClearContentsEnd Sub

3丨

復(fù)制粘貼

如果我們需要將A1:D5單元格區(qū)域的數(shù)據(jù)復(fù)制到H1:K5區(qū)域，可以使用以下代碼▼

粘貼區(qū)域可以只指定左上角的首個(gè)單元格，系統(tǒng)會(huì)根據(jù)復(fù)制區(qū)域的大小，自動(dòng)擴(kuò)展目標(biāo)區(qū)域，因此以下代碼更為常用。

注意粘貼單元格的變化..▼

Sub CopyRng2()    Range('a1:d5').Copy Range('h1')End Sub

Range對(duì)象的Copy方法完整語(yǔ)法格式如下：

參數(shù)Destination指定了粘貼單元格的目標(biāo)區(qū)域，可以省略，如果省略Excel會(huì)將單元格對(duì)象復(fù)制到剪貼板中。

使用Range對(duì)象的PasteSpecial方法可以將剪貼板的Range粘貼到指定區(qū)域，并可以選擇性的粘貼對(duì)象的部分屬性——這對(duì)應(yīng)了Excel基礎(chǔ)操作中的選擇性粘貼功能。

我舉個(gè)例子。

Sub CopyRng3()    Range('a1:d5').Copy    Range('h1').PasteSpecial xlPasteAll    Application.CutCopyMode = FalseEnd Sub

第2行代碼將A1:D5區(qū)域復(fù)制到剪貼板。第3行代碼將剪貼板內(nèi)單元格對(duì)象的全部?jī)?nèi)容（xlPasteAll）復(fù)制粘貼到以H1單元格為左上角的區(qū)域。

這種復(fù)制粘貼的方式，源單元格區(qū)域會(huì)出現(xiàn)虛線邊框，因此第4行代碼取消剪切或復(fù)制模式并清除移動(dòng)邊框。

……

選擇性粘貼對(duì)話框▼

說(shuō)一下PasteSpecial的完整語(yǔ)法格式▼

Range是粘貼的目標(biāo)單元格或區(qū)域。

Paste指定了粘貼的源單元格區(qū)域的屬性，常用的有格式、列寬、公式、值等。對(duì)應(yīng)上圖的區(qū)域1。

選擇性粘貼的相關(guān)屬性和代碼均可通過(guò)錄制宏獲取，通常并不需要強(qiáng)行記憶。打個(gè)響指，吃一包好多魚，有幾個(gè)常用的套路性語(yǔ)句大家還是需要深入了解一下。

也許你知道，也許你不知道，但很快你就知道的是，直接使用復(fù)制粘貼，不會(huì)將源單元格的列寬復(fù)制到目標(biāo)區(qū)域——但借助選擇性粘貼列寬，可以解決這個(gè)問(wèn)題。

Sub CopyRng4()    Range('a1:d5').Copy    Range('h1').PasteSpecial xlPasteColumnWidths    Range('h1').PasteSpecial xlPasteAll    Application.CutCopyMode = FalseEnd Sub

第2行代碼將源單元格復(fù)制到剪貼板，第3行代碼選擇性粘貼列寬，第4行代碼粘貼全部屬性。

……

有朋友可能會(huì)想，選擇性粘貼還有一個(gè)比較常用的功能，將公式的計(jì)算結(jié)果粘貼為數(shù)值——但這在VBA編程上并不常用。將公式轉(zhuǎn)換為數(shù)值，更常使用的方式是直接賦值▼

第4行代碼將單元格的值屬性，即去除了公式等其他屬性，寫入單元格區(qū)域中，這和復(fù)制后選擇性粘貼數(shù)值相比……刀郎是這么說(shuō)的，它來(lái)得那么快來(lái)得那么直接，就算我心狂野，也無(wú)法將火熄滅……

……

4丨

設(shè)置單元格格式

Sub rngFormat()    Dim arr    arr = Worksheets('數(shù)據(jù)表').Range('a1').CurrentRegion    Worksheets('結(jié)果表').Select    Range('d:d').NumberFormatLocal = '@' '設(shè)置文本格式    Range('a1').Resize(UBound(arr), UBound(arr, 2)) = arrEnd Sub

代碼解析：

第3行代碼將數(shù)據(jù)源存入數(shù)組arr。第4行代碼選中名為'結(jié)果表'的工作表。第5行代碼設(shè)置D列單元格格式為文本，避免證件號(hào)數(shù)據(jù)變形。第6行代碼將數(shù)組arr的數(shù)據(jù)寫入指定區(qū)域。

第5行設(shè)置單元格格式的代碼也可以使用▼

NumberFormatLocal是通過(guò)本地用戶語(yǔ)言來(lái)定義單元格格式，NumberFormat是使用通用格式代碼來(lái)定義單元格格式。這在中英文系統(tǒng)下可能會(huì)有差異，比如中文系統(tǒng)常規(guī)格式叫做G/通用格式，但這在英文系統(tǒng)下就不能用了，更推薦使用通用格式General——這點(diǎn)了解一下即可，防止將來(lái)找個(gè)外國(guó)異性朋友嘰里呱啦什么嗯？

不同數(shù)據(jù)類型的格式代碼可以通過(guò)錄制宏獲取，這里不再展開描述。

5丨

刪除重復(fù)項(xiàng)

Sub DistinctRngData()    Range('c:c').RemoveDuplicates 1, xlYesEnd Sub

Sub DistinctRngData2()    Range('a:c').RemoveDuplicates Array(2, 3), xlYesEnd Sub

6丨

篩選

最后聊一下篩選……算了，還是不聊了，無(wú)賴臉，關(guān)于篩選咱們放到單元格事件里再說(shuō)吧。

打個(gè)響指，關(guān)于單元格對(duì)象的常用操作到此也就算告一段落了。說(shuō)幾句題外話，大部分Excel自帶的功能，比如分列、篩選、查找替換等，都可以通過(guò)數(shù)組循環(huán)的方式實(shí)現(xiàn)，而且效率往往也更高，所以大家初期學(xué)習(xí)的重點(diǎn)還是數(shù)組四篇，那是一劍破萬(wàn)法的存在；至于單元格對(duì)象等，可以先了解，用到時(shí)教程里直接抄代碼都是可以的。

總結(jié)一句話就是：不要老是搞對(duì)象。

揮揮手下期再見。