入力されている最終行を取得

データが入力されている一番最後の行に、VBAで自動的にデータが転記されるようにしたい…といった場合に使えるコードを紹介します。
さまざまな場面で利用する機会が多いコードです。

ThisWorkbook.Sheets(“Sheet1”).Cells(Rows.Count, 1).End(xlUp).Row

このコードを実行すると、シートの最終行が何行目かを数字で返してくれます。
実際は下のように変数に入れて使います。

Dim No as Long
No=ThisWorkbook.Sheets(“Sheet1”).Cells(Rows.Count, 1).End(xlUp).Row

変数「No」に「100」などの行数（数値）が格納されるので、これとCellsなどを組み合わせて使うことができます。

内容を理解できなくても、定型文として覚えておき、必要となったときに参照しながら書くようにすれば十分です。