VBA サンプルコード セルの値を取得 ＆ 最終行、最終列の取得

サンプルコードだけ並べます。

Excelの表からデータ拾ってVBAで集計する仕事だと、ここのコードしってるとめっちゃ便利です。

※事前にSheet1という名前のシートを作っておく必要があります。

'CellsでA1セルの値を取得

Sub test1()

    Dim val as Variant

    val = ThisWorkbook.Worksheets("Sheet1").Cells(1,"A").Value

    Call MsgBox(val)

End Sub

 'RangeでA1セルの値を取得

Sub test2()

    Dim val as Variant

    val = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value

    Call MsgBox(val)

End Sub

'A列の最終行を取得

Sub test3()

    Dim endR as Long

    Dim sh as Worksheet: Set sh = ThisWorkbook.Worksheets("Sheet1")

   endR = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row

    Call MsgBox(endR)

End Sub

'1行目の最終列を取得

Sub test4()

    Dim endC as Long

    Dim sh as Worksheet: Set sh = ThisWorkbook.Worksheets("Sheet1")

   endC = sh.Cells(1, sh.Columns.Count).End(xlToLeft).Column

    Call MsgBox(endC)

End Sub