【VBA】最終行まで繰り返す

5月 4, 2025

Excel VBAでExcelシート内での処理をデータの最終行まで繰り返し行うことは、データの操作や分析において重要です。最終行まで繰り返す処理を行う方法について説明します。

Excel VBAで最終行まで繰り返す処理を行う方法

最終行とは、Excelシート内でデータが入力されている最後の行を指します。最終行を特定することで、その行まで繰り返し処理を実行することができます。
これにより、データの追加、変更、削除、集計などの操作を効率的に行うことができます。

最終行を特定するためには、EndメソッドやCellsプロパティを使用します。これにより、指定された列の最終行を正確に取得することができます。

最終行を取得したら、その行まで繰り返し処理を行うことができます。

以下に、最も一般的な繰り返し処理の例を紹介します。

Forループを使用すると、最初の行から最終行まで順番に繰り返し処理を行うことができます。

【使用例: 各行のセルにデータを追加する】
Sub LoopThroughRows()

Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

' ワークシートを指定
Set ws = ThisWorkbook.Sheets("Sheet1")

' 列Aの最終行を取得
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 1行目から最終行まで繰り返し処理
For i = 1 To lastRow

' 列Bに「データ」という文字を入力
ws.Cells(i, 2).Value = "データ"

Next i

MsgBox "最終行までデータを追加しました。"

End Sub

列Aの最終行まで繰り返し処理を行い、列Bに「データ」という文字列を入力しています。

Do Whileループは、特定の条件が満たされるまで繰り返し処理を行います。
例えば、特定の列にデータが存在する間だけ処理を繰り返す場合に使用できます。

【使用例: 列Aにデータがある間、繰り返し処理を行う】
Sub LoopWhileDataExists()

Dim ws As Worksheet
Dim i As Long

' ワークシートを指定
Set ws = ThisWorkbook.Sheets("Sheet1")

' 行カウンタを初期化
i = 1

' 列Aにデータがある間、繰り返し処理
Do While ws.Cells(i, 1).Value <> ""

' 列Bに「Processed」という文字を入力
ws.Cells(i, 2).Value = "Processed"
i = i + 1

Loop

MsgBox "すべてのデータを処理しました。"

End Sub

A列にデータが存在する間、B列に「Processed」という文字を追加しています。

空白セルの取り扱い
データの途中に空白セルがある場合、適切な方法で最終行を特定する必要があります。End(xlUp)を使用すると、空白セルがある場合でも最後のデータが入力された行を正確に特定できます。
エラーハンドリング
最終行が存在しない場合や、データがない場合に備えて、エラーハンドリングを追加することをお勧めします。【VBA】エラーハンドリングとオープンエラーハンドリング

Excel VBAで最終行まで繰り返す処理を行うことで、大量のデータを効率的に操作することが可能です。ForループやDo Whileループを使用して、最終行までのデータを自動的に処理することで、作業の効率化が図れます。