【VBA】行数を取得する方法：Rows.Countプロパティ

Sub GetTotalRows()

Dim totalRows As Long
totalRows = Rows.Count
MsgBox "このシートには " & totalRows & " 行あります。"

End Sub

Sub GetUsedRangeRows()

Dim usedRows As Long
usedRows = ActiveSheet.UsedRange.Rows.Count
MsgBox "このシートで使用されている行数は " & usedRows & " 行です。"

End Sub

Sub GetLastRowInColumn()

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 列A（1列目）を基準
MsgBox "列Aの最終行は " & lastRow & " 行目です。"

End Sub

Sub GetLastRowInSheet()

Dim lastRow As Long
lastRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
MsgBox "シート全体の最終行は " & lastRow & " 行目です。"

End Sub

Sub GetNonEmptyRows()

Dim rng As Range
Dim rowCount As Long

Set rng = ActiveSheet.UsedRange
rowCount = Application.WorksheetFunction.CountA(rng.Rows)
MsgBox "空白を除いた行数は " & rowCount & " 行です。"

End Sub

Sub GetNonEmptyRows()

Dim rng As Range
Dim rowCount As Long

Set rng = ActiveSheet.UsedRange
rowCount = Application.WorksheetFunction.CountA(rng.Rows)
MsgBox "空白を除いた行数は " & rowCount & " 行です。"

End Sub

Sub CountRowsWithSpecificValue()

Dim rng As Range
Dim cell As Range
Dim count As Long

Set rng = Range("A1:A10") ' 列Aの1～10行目を対象
count = 0

For Each cell In rng

If cell.Value = "対象" Then

count = count + 1

End If

Next cell

MsgBox "値が「対象」の行数は " & count & " 行です。"

End Sub

Sub CopyDynamicRange()

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 列Aの最終行を取得

Range("A1:A" & lastRow).Copy Destination:=Range("B1")
MsgBox "データをコピーしました。"

End Sub

Sub AddDataToNextRow()

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 列Aの最終行を取得

Cells(lastRow + 1, 1).Value = "新しいデータ"
MsgBox "データを追加しました。"

End Sub