Excel VBA 用CurrentRegion屬性快速確定自已的地盤

在清朝初期，入關的八旗子弟通過騎馬來圈定自已所屬的土地，稱為“跑馬圈地”，但這種恃強凌弱的行為極大地激發了滿漢之間的矛盾，后來清政府制止了這種霸道無理的行為。

在Excel中，用不著這么麻煩，任一單元格所在區域能很快地確定下來，只要這一區域周邊被空行和空列所包圍著，并且也不會激發任何的矛盾，用戶也非常喜歡這樣的做法。

如果在工作表中直接操作，就是在當前單元格位于單元格區域中的任一單元格時，按下Ctrl+Shift+* 組合鍵，即可快速選擇整個單元格區域，如下圖所示。

在VBA中，起到相同作用的是Range對象的CurrentRegion屬性。仍以上圖所示的工作表為例，運行下面的代碼：

Range("B2").CurrentRegion.Select

同樣會選擇單元格區域B2:D6。

正如上面所說的，當前單元格不一定是單元格B2，該區域中任意單元格都行，例如，下面的代碼：

Range("C3").CurrentRegion.Select

也會選擇單元格區域B2:D6。

由上可知，CurrentRegion屬性返回代表當前區域的Range對象。當前區域是指包含有當前單元格的由空行和空列圍繞組成的區域。在該區域中，必須保證區域中的每一行或列中至少有一個存在數據的單元格。

但是，該屬性在受保護的工作表中無效。

如上圖所示的工作表。

1、若單元格B2或者C3是當前單元格，那么下面的代碼：

ActiveCell.CurrentRegion.Select

也會選擇單元格區域B2:D6。

2、下面的代碼：

Sub CurrentRegionTest1()

Dim rng As Range '聲明對象變量

'將當前單元格區域賦值給變量

Set rng =Range("B2").CurrentRegion

'顯示信息

MsgBox "當前單元格區域共有" &rng.Rows.Count & "行," & _

rng.Columns.Count & "列" &vbCrLf & _

"當前單元格區域在第"& rng.Row & "行,第" & _

rng.Column & "列開始"

End Sub

運行后，會彈出如下圖所示的消息框，顯示當前單元格區域的一些信息。

試試看，如果選擇緊鄰單元格區域的行列中的單元格為當前單元格，再運行CurrentRegion屬性，所獲得的區域將包含該單元格所在的行或列，即便現在該單元格所在的行或列為空。

下面的示例工作表如下圖所示，看看下面的代碼：

Sub CurrentRegionTest2()

Dim rng As Range '聲明對象變量

'將當前單元格區域賦值給變量

Set rng =Range("B1").CurrentRegion

'選擇當前單元格區域除第1行以外的區域

rng.Offset(1, 0).Resize(rng.Rows.Count - 1,rng.Columns.Count).Select

End Sub

運行代碼后，將選擇當前區域中除標題行以外的單元格區域，如下圖所示。

如上圖所示的工作表，下面的代碼設置當前單元格區域的偶數行的背景色為紅色：

Sub CurrentRegionTest3()

Dim rng As Range '聲明對象變量

Dim rngRow As Range '聲明計數變量

'將當前單元格區域賦值給變量

Set rng =Range("B1").CurrentRegion

'選擇當前單元格區域除第1行以外的區域

For Each rngRow In rng.Rows

'如果為偶數行,則將其背景色設置為紅色

If rngRow.Row Mod 2 = 0 Then

rngRow.Interior.ColorIndex = 3

End If

Next rngRow

End Sub

運行代碼后的結果如下圖所示。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。