よねさんのWordとExcelの小部屋 のHomeへ戻る

セル範囲の指定方法:Excel VBA入門

スポンサードリンク


更新 2022/7/21

Range Cells Rows Columns
Offset Resize EntireRow EntireColumn
終端セル CurrentRegion UsedRange SpecialCells

セル範囲の指定方法   topへ

Rangeプロパティ   topへ

  1. 単一のセルB2を選択します。
    Sub rei_801()
      Worksheets("Sheet1").Activate
      Range("B2").Select
    End Sub

    Sheet1のB2セルに”Excel"と入力します。
    Sub rei_801a()
    Worksheets("Sheet1").Range("B2").Value = "Excel"
    End Sub

  2. 複数のセルA1とB3を選択します。
    Sub rei_802()
      Worksheets("Sheet1").Activate
      Range("A1,B3").Select
    End Sub

    Sheet1のA1セルとB3セルに”Excel"と入力します。
    Sub rei_802()
      Worksheets("Sheet1").Range("A1,B3").Value = "Excel"
    End Sub

  3. セル範囲A1:B3を選択します。
    Sub rei_803()
      Worksheets("Sheet1").Activate
      Range("A1:B3").Select
    End Sub
    セル範囲A1:B3を選択します。(その2)
    Sub rei_803a()
      Worksheets("Sheet1").Activate
      Range("A1", "B3").Select
    End Sub

    セル範囲A1:B3に”Excel"と入力します。
    Sub rei_803b()
      Worksheets("Sheet1").Range("A1", "B3").Value = "Excel"
    End Sub

  4. セルB1を基準にB2:D3を選択する
    Sub rei_804()
      Worksheets("Sheet1").Activate
      Range("B1").Range("B2:D3").Select
    End Sub

    B2セルを基準にして(B2セルをA1セルと仮定して)、B2とD3セルの範囲が選択できます。
  5. セル範囲A1:B3を選択し、B1セルに”Excel"と入力します。
    Sub rei_805()
      Worksheets("Sheet1").Activate
      Range("A1:B3").Select
      Range("B1").Value = ”Excel"

    End Sub

  6. セル範囲に連続値を入力する
    Sub rei_805a()
     Dim r As Range
     Dim c As Range
     Dim cn As Integer
      Set r = Range("A1:B3")
      For Each c In r
       cn = cn + 1
       c.Value = cn
      Next
    End Sub

Cellsプロパティ   topへ

Rowsプロパティ   topへ

EntireRowプロパティ   topへ

Columnsプロパティ   topへ

EntireColumnプロパティ   topへ

Offsetプロパティ   topへ

Resizeプロパティ   topへ

終端のセルを選択する (Endプロパティ)  topへ

  1. xlDown(下方向)(xlToRight(右方向)も同様です)
    A1セルから下方向の入力済みの終端セルを選択します。
    Sub rei_840()
      Worksheets("Sheet1").Activate
      Range("A1").End(xlDown).Select
    End Sub

    A6セルが選択されます。


    最終行を求めたいときは?
    Sub rei_840a()
     Dim lastRow As Long
      lastRow = Worksheets("Sheet1").Range("A1").End(xlDown).Row
      MsgBox "最終行は" & lastRow & "です"
    End Sub


  2. xlUp(上方向)
    A列の最終行(A1048576セル)から上方向の入力済み終端セルを選択します。
    最終セルはExcelのバージョンによって変わるので、Rows.Countを利用してみます。
    Sub rei_841()
      Worksheets("Sheet1").Activate
      Range("A" & Rows.Count).End(xlUp).Select
    End Sub

    A6セルが選択されます。
  3. xlToLeft(左方向)
    1行目の最終列から左方向の入力済み終端セルを選択します。
    最終セルはExcelのバージョンによって変わるので、Columns.Countを利用してみます。
    シートの最終列のセル XFD1 から左方向の入力済みの最終セルを選択します。
    Sub rei_842()
      Worksheets("Sheet1").Activate
      Cells(1, Columns.Count).End(xlToLeft).Select
    End Sub

    F1セルが選択されます。

アクティブセル領域の選択(CurrentRegionプロパティ)   topへ

使用済みの最終セルの選択(UsedRangeプロパティ)   topへ

編集済みの最終セルの選択(SpecialCellsメソッド)   topへ

スポンサードリンク



よねさんのWordとExcelの小部屋Excel(エクセル)講座の総目次Excel(エクセル) VBA入門:目次|セル範囲の指定方法

PageViewCounter
 Counter
 Since2006/2/27