VBA中Range的用法小記

1.選擇A1單元格，不做任何操作

Sub rangeTest() Range("a1").Select End Sub 

2.選擇A1單元格，並且賦值“GIVE THANKS TO GOD”

Sub rangeTest() Range("a1") = "GIVE THANKS TO GOD" End Sub 

3.選擇A1到C5單元格，不做任何操作

Sub rangeTest() Range("a1", "c5").Select End Sub 

4.選擇A1到C5單元格，並且賦值“GIVE THANKS TO GOD”

這邊選擇A1到C5有兩種寫法，上面的是逗號分隔是一種，下面的這種冒號分隔也是一種。

Sub rangeTest() Range("a1: c5") = "GIVE THANKS TO GOD" End Sub 

5.選擇A1到C5單元格和E5到G6兩個不連續的區域，不做任何操作

Sub rangeTest() Range("a1: c5,e5:g6").Select End Sub 

6.選擇第一行，不做任何操作

Sub rangeTest() Range("1:1").Select End Sub 

7.選擇第A列，不做任何操作

Sub rangeTest() Range("a:a").Select End Sub 

8.選擇A5單元格，不做任何操作。但是具體變量需要替換成抽象變量

Sub rangeTest() Dim num As Integer Dim letter As String Let letter = "a" Let num = 5 Range(letter & num).Select End Sub 

9.選擇A1到C5單元格，不做任何操作，具體變量需要替換成抽象變量

Sub rangeTest() Dim num1 As Integer Dim letter1 As String Dim num2 As Integer Dim letter As String Let num1 = 1 Let letter1 = "a" Let letter2 = "c" Let num2 = 5 Range(Range(letter1 & num1), Range(letter2 & num2)).Select End Sub 

10.復制A1單元格的數據到A2

Sub rangeTest() Range("a1").Copy Range("a2") End Sub 

11.現有一表格如下圖，選擇下圖全部數據，具體變量只能使用A1

 

test.png

Sub rangeTest() Dim letter As String Dim num As Integer letter = "f" num = 1 Range("a1", Range(letter & num).End(xlDown)).Select End Sub 

12.現有一表格與上圖相似（並且單元格內均有數據，為規整的正方形或者長方形數據），選擇下圖全部數據，並且不管數據如何增加，運行代碼均能選擇所有數據

Sub rangeTest() Dim endNumber As Integer endNumber = Application.WorksheetFunction.CountA(Sheet1.Range("a:a")) Range("a1", Range("a" & endNumber).End(xlToRight)).Select End Sub 

13.現有表格如下圖，請使用offset方法選擇A19單元格

 

test.png

Sub rangeTest() Range("a1").End(xlDown).Offset(1, 0).Select End Sub 

這邊的offset有兩個參數，第一個參數是上下的挪移，第二個參數是左右的挪移。
如下例：

offset(|A| , |B|) : 以選擇單元格為起點，向下挪移A個單元格，向右挪移B個單元格。
offset(-|A| , -|B|) : 以選擇單元格為起點，向上挪移A個單元格，想左挪移B個單元格。

依次類推。

今天range的用法小結暫告一個段落，其中提到的offset與End(xl...)的用法，在實際操作中常常會用到，而且特別方便。

作者：agape__
鏈接：https://www.jianshu.com/p/7324bd36726f
來源：簡書
著作權歸作者所有。商業轉載請聯系作者獲得授權，非商業轉載請注明出處。