A列を上から順番に処理する
2行目から最終行まで繰り返し、B列へ処理済みと入力します。
実行前に確認
- A列の2行目から最終データ行まで、途中の空白行も含めてB列を「処理済み」で上書きします。1行目だけ、またはデータなしなら処理しません。
1サンプルコード
Sub 行を順番に処理する()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim lastRow As Long
Dim rowNumber As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For rowNumber = 2 To lastRow
ws.Cells(rowNumber, "B").Value = "処理済み"
Next rowNumber
End Sub表で見る処理のイメージ実行前・実行後のセルを見比べる
A列の最終行まで、B列へ「処理済み」を入力します。
A・B・Cは列、1・2・3は行です。例えば「B2」はB列の2行目のセルです。この表は説明用のサンプルです。
実行前
Sheet1
| A | B | |
|---|---|---|
| 1 | 商品 | 状態 |
| 2 | りんご | — |
| 3 | — | — |
| 4 | みかん | 未処理 |
実行後
Sheet1
| A | B | |
|---|---|---|
| 1 | 商品 | 状態 |
| 2 | りんご | 処理済み（注目セル） |
| 3 | — | 処理済み（注目セル） |
| 4 | みかん | 処理済み（注目セル） |
色付きは注目する場所です。「—」は未入力、「（空文字）」は数式などが返す空の文字列を表します。
A5以降は未入力。途中でA列が空白の3行目も処理します。B列の既存内容は上書きされます。 強調は注目するセルの目印です。実際のセルの色・書式を再現するものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
Windows版のデスクトップExcelで練習用ブックを.xlsm形式で保存します。Alt＋F11→［挿入］→［標準モジュール］に、この例だけを貼り付けます。
- 2
このブックのSheet1の1行目を見出しにしてA2以降へデータを用意します。B列は出力用に空け、必要ならコードのシート名を変更します。
- 3
実行するSubの内側にカーソルを置き、F5キーを押します。
- 4
A列の2行目から最終データ行まで、B列に「処理済み」が入ります。途中の空白行も処理され、B列の既存値は上書きされます。