Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
セル範囲の指定方法:Excel VBA入門
[go: Go Back, main page]
  1. Home » 
  2. Excel講座の総目次 » 
  3. Excel VBA入門：目次 » 
  4. セル範囲の指定方法
よねさんの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