PCメモ

Excelを中心とした業務改善の記録

2020-08-03から1日間の記事一覧

最終行の取得

データの最終行を取得する。 Sub Macro1 () Dim LastRow As Integer LastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row End Sub Excelの最終行からEnd(xlUp)でデータ最終行まで行って行番号を取得する。 変数LastRowに格納。 解説 Sheet1の1行…