セル操作

セル選択

Sub ProcedureName()
    ' Cells(2, 3) 行、列を座標で指定
    Debug.Print "Cells(2, 3) -> " + Cells(2, 3).value

    ' Range("B2") セル名で指定
    Debug.Print "Range(""B2"") -> " + Range("B2").value
End Sub

実行結果

Cells(2, 3) -> valueC2
Range("B2") -> valueB2

---

最終行を取得

Sub ProcedureName()
    ' ctrl + ↓
    Debug.Print "ctrl + ↓ -> " + Range("A1").End(xlDown)

    ' ctrl + →
    Debug.Print "ctrl + → -> " + Range("A1").End(xlToRight)

    ' ctrl + ↑
    Debug.Print "ctrl + ↑ -> " + Range("A3").End(xlUp)

    ' ctrl + ←
    Debug.Print "ctrl + ← -> " + Range("C1").End(xlDown)

    ' 最終行 + ctrl + ↑
    Debug.Print "最終行 + ctrl + ↓ -> " + Cells(Rows.Count, 1).End(xlUp)
End Sub

---

行数を取得

Sub ProcedureName()
    Debug.Print Range("B2").Row
End Sub

実行結果

2

---

列数を指定

Sub ProcedureName()
    Debug.Print Range("C2").Column
End Sub

実行結果

3

---

列を取得

Sub ProcedureName()
    Column("A")
    Column(1)
End Sub

行を取得

Sub ProcedureName()
    Row(2)
End Sub