range & cells 

使用 Range 物件選取儲存格

選取單一儲存格

Sub RangeSel1()
    Range("C5").Select '選擇儲存格 C5
End Sub

選取連續的儲存格範圍

Sub RangeSel2()
    Range("B2:D4").Select '選擇連續儲存格範圍 B2:D4
End Sub

Sub RangeSel2()
    Range("B2","D4").Select '選擇連續儲存格範圍 B2:D4
End Sub

選取不連續的儲存格範圍

Sub RangeSel3()
    Range("B2,B4,D2,D4").Select
    Range("B2:D3,B5:D6").Select
End Sub

選取定義名稱的儲存格範圍

Sub RangeSel4()
    Range("銷售總額").Select
End Sub

選取 行/列

Sub RangeSel5()
    Range("1:1").Select '選取第一列
    Range("A:A").Select '選取第 A 行
    Range("1:3").Select '選取第一列到第三列
    Range("A:C").Select '選取第 A 行到第 C 行
    Range("1:3,6:6").Select '選取第第一列到第三列，以及第六列
    Range("A:C,F:F").Select '選取第 A 行到第 C 行，以及第 F 行
End Sub

使用 Cells 屬性選取儲存格

選取單一儲存格

Sub CellsSel1()
    Cells(5,3).Active '選取 C5 儲存格，格式為 Cells("列","行")
    Cells(5,"C").Active
End Sub

Sub CellsSel1()
    Cells(1027).Active '用編號選取儲存格，順序是由左至右由上往下從編號 1 開始
End Sub

選取所有儲存格

Sub CellsSel2()
    Cells.Select
End Sub

取得 / 設定 儲存格的值

Sub GetValueRange1()
    MsgBox Range("A1").Value
End Sub

Sub SetValueRange1()
    Range("A1").Value = 123.456 '通用格式
    Range("A2").Value = "-1,234,500" '千分位
    Range("A3").Value = "2009/01/01" '日期
    Range("A4").Value = "11:22:33" '時間
    Range("A5").Value = "01234" '文字
End Sub

取得 / 設定 儲存格的計算式

設定計算式

Sub FormulaRange1()
    Range("A10").Formula = "=SUM(A1:A9)"
    Range("B10").Formula = "=AVERAGE(B1:B9)"
    Range("C10").Formula = "=MAX(C1:C9)"
    Range("D10").Formula = "=MIN(D1:D9)"
End Sub

絕對參照 / 相對參照

Sub FormulaRange1()
    Range("A3").Formula = "=$A$1+$A$2" '絕對參照
    Range("B3").Formula = "=B1+B2" '相對參照
End Sub