【Excel/VBAのこと44】セル、行列 いろいろな選択方法（Range, Cells, Rows, Columns, Selection, SpecialCells）

　  

いろいろなセルの選択方法です。（備忘録も兼ねてます）

**********************************************

Sub いろいろセル選択方法()

    Dim Cnt As Long
    Dim r As Long
    Dim c As Long

　'①セルを1つだけ選択

    Range("A1").Select
    Cells(1, 1).Select

　　

　'②指定行のデータの入っている最終セルを選択＝最終列を選択

　Cells(3, Columns.Count).End(xlToLeft).Select

　　

　'③指定列のデータの入っている最終セルを選択＝最終行を取得

  　Cells(Rows.Count, 4).End(xlUp).Select

　　

　'④連続した複数のセルを選択

　Range("A1:D5").Select
    Range(Cells(1, 1), Cells(5, 4)).Select

　　

　'⑤連続していない複数セルを選択

　Range("A1, B3").Select  

　　

　'⑥１行選択

　Rows(1).Select
    Range("1:1").Select
    Range("A1").EntireRow.Select　

　　

　'⑦1列選択

　Columns(1).Select
    Range("A:A").Select
    Range("A1").EntireColumn.Select

　　

　'⑧連続した複数行選択

　Range("A2:A4").EntireRow.Select
    Rows("2:4").Select

　　

　'⑨連続した複数列選択

　Range("A:B").Select

　　

　'⑩連続していない複数行選択

　Range("2:2, 4:4").Select

　　

　'⑪連続していない複数列選択

　Range("A:A, C:C").Select

　　

　'⑫SpecialCells---データの入っている最後のセルを選択

　Cells.SpecialCells(xlCellTypeLastCell).Select
    Range("A1").SpecialCells(xlCellTypeLastCell).Select
    Selection.SpecialCells(xlCellTypeLastCell).Select

　　

　'⑬データの入っている最後セルの行を取得

　r = Cells.SpecialCells(xlCellTypeLastCell).Row　'変数に代入して使用します

　'⑭データの入っている最後セルの列を取得

　c = Cells.SpecialCells(xlCellTypeLastCell).Columns　'変数に代入して使用します

　　

　'⑮選択した範囲のセルの情報取得

　　

　'選択セル数

　Selection.Count

　'行数

　Selection.Rows.Count

　'列数

　Selection.Columns.Count

　'A(左上)

　Selection(1).Row        '行
　Selection(1).Column     '列
　Selection(1).Address    'セル番地
   

　'L（右下）

　Selection(Selection.Count).Row  '行
　Selection(Selection.Count).Column   '列
　Selection(Selection.Count).Address  'セル番地
   

　'D（左下）

　Selection(1).Row   'Aと同じ行
　Selection(Selection.Count).Column   'Lと同じ列
   

　'I（右上）

　Selection(Selection.Count).Row      'Lと同じ行
　Selection(1).Column  'Aと同じ列

    '使用例・・・変数に代入したり、Msgboxで使用します

    Msgbox Selection.Count
    r = Selection(1).Row
    c = Selection(Selection.Count).Column

End Sub

**********************************************

複数列を Cells や Columns を使って数値で指定が出来たらよかったのに・・・

って思うことがありましたけど、仕方ないですね。

------------------------------------------------

個人用マクロブックについてはこちら

www.tuna-kichi.com

リボンに登録についてはこちら

www.tuna-kichi.com

＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／