1.單元格
1.1 單個(gè)單元格
Worksheets("Sheet1").Range("A1").Value = 10
1.2 單元格區(qū)域
直接引用與通過變量引用
Sub rng()
Range("A1:A10").Value = 10 '在A1:A10插入數(shù)值10
Dim n As String
n = "B1:B10"
Range(n) = 100 '在B1:B10插入數(shù)值100
End Sub
通過名稱引用
Sub rng()
Range("date").Value = 10 '提前定義名稱 date = A1:B10
End Sub
1.3 跨區(qū)域引用
同時(shí)選擇多個(gè)區(qū)域
Sub rng()
Range("A1:A10,A4:E6,C3:D9").Select '逗號(hào)分隔
End Sub
選擇多個(gè)區(qū)域的交集
Sub rng()
Range("A1:A10 A4:E6").Select '空格分隔
End Sub
包含2個(gè)區(qū)域的最小矩形區(qū)域
Sub rng()
Range("A1:A10","B4:E6").Select '效果與"A1:E10"一樣
End Sub
2.Cells屬性
作為Range的屬性
Range("B3:F9").Cells(2,3) = 100 '為B3:F9區(qū)域第2行霞势、第3列的單元格賦值100
作為Range的參數(shù)
Range(Cells(1,1),Cells(10,5)).Select '2個(gè)表達(dá)式贰军，意義是一樣的
Range("A1","E10").Select
3.Rows傍衡、Columns對(duì)象
與Range對(duì)象有點(diǎn)不同翅敌，Rows和Columns是直接引用工作表椎侠、區(qū)域的指定行株灸、列
Rows("3:10").Rows(1).Select '選中第3行到第10行區(qū)域中的第1行
Columns("B:G").Columns(3).Select '選中第3行到第10行區(qū)域中的第1行
4.Union方法
將多個(gè)單元格區(qū)域粘在一起昔头，并同時(shí)對(duì)其進(jìn)行操作
案例：選中A1:F14區(qū)域中等孵，所有數(shù)值與A1相同的單元格
Sub Rnge5()
Dim myRng As Range, n As Range
Set myRng = Range("A1")
For Each n In Range("A1:E14")
If n.Value = Range("A1").Value Then
Set myRng = Union(myRng, n)
End If
Next
myRng.Select
End Sub
5.Offset屬性
與同名Excel函數(shù)的原理一樣
Range("A1").offset(2,3).Value = 100 '往下走2行、往右走3列
6.Resize屬性
以目標(biāo)單元格區(qū)域?yàn)閷?duì)象矫付，將范圍擴(kuò)大或縮小到指定范圍
Range("A1").Resize(5,4).Select '放大到 5行x4列
Range("B1:H10").Resize(2,1).Select '縮小到 2x1
7.UsedRange屬性
返回包含所有已使用單元格的矩形區(qū)域
比如凯沪，表里就A1和C10有數(shù)據(jù)，那么返回?cái)?shù)據(jù)為 A1:C10
8.End屬性
作用相當(dāng)于在Excel里使用 Ctrl+方向鍵技即，需要配合"方向"參數(shù)使用
語句格式
Range("C5").End(xlUp).Select
參數(shù)說明
| 參數(shù) | 說明 |
|---|---|
| xlToLeft | 向左移動(dòng) |
| xlToRight | 向右移動(dòng) |
| xlUp | 向上移動(dòng) |
| xlDown | 向下移動(dòng) |
案例：在數(shù)列的最后一格后邊插入1個(gè)1~100的隨機(jī)整數(shù)
Sub Rnge6()
Range("A65536").End(xlUp).Offset(1, 0).Value = Int(Rnd() * 100)
End Sub
9.Value屬性
Value 是Range的默認(rèn)屬性，在賦值時(shí)樟遣，可以被省略
Range("B1:H10").Value = 100 '兩者的意義是一樣的
Range("B1") = 100
10.Count屬性
Count可以計(jì)算區(qū)域里一共包含多少單元格
Range("B1:H10").Count
加上Rows和Columns而叼，可以看縱、橫的格數(shù)
Range("B1:H10").Rows.Count
Range("B1:H10").Columns.Count
11.復(fù)制粘貼
復(fù)制B1的數(shù)據(jù)豹悬，并粘貼到C1
Range("B1").Copy Range("C1")
跨工作表粘貼
Worksheets("Sheet1").Range("B1:B10").Copy Worksheets("Sheet2").Range("C1:C10")
