VBAで自動化 VBA一覧 セル・値の取得と貼り付け 取得

【VBA】セルの値を取得するループ処理｜実務で使える基本設計

Excel VBAで業務を自動化するとき、「セルの値を1つずつ取得して処理したい」という場面は非常に多くあります。たとえば、一覧表のデータを上から順番に確認したり、空白でないセルだけを判定したり、条件に合う値だけを別の処理へ渡したりするケースです。

ただし、セルの値を取得する処理は一見簡単に見えて、実務では意外とミスが起きやすい部分でもあります。特に、最終行の取得方法、空白セルの扱い、取得した値の使い道を考えずにコードを書くと、後から修正しづらいマクロになってしまいます。

この記事では、VBAでセルの値をループ処理によって取得する基本から、実務で使いやすい書き方、注意点、応用例までを解説します。

目次

✅ VBAでセルの値を取得するループ処理の基本

VBAでセルの値を取得する処理は、Excel自動化の土台になる重要な考え方です。
しかし、単に「For文で回してCellsの値を読む」だけで終わらせてしまうと、実務では使い回しにくいコードになりがちです。
特に一覧表のデータは、行数が毎回変わることが多く、固定行だけを対象にするとすぐに対応できなくなります。
また、空白行や不要な見出し行を考慮せずに処理すると、意図しない値まで取得してしまうことがあります。
この章では、まずセルの値を1行ずつ取得する基本構造を押さえます。
ここを理解しておくと、条件判定・転記・集計・チェック処理など、さまざまなVBA処理へ応用しやすくなります。

・セルの値を取得するときの基本構文

セルの値を取得する基本は、次のように書きます。

Dim cellValue As Variant
cellValue = Worksheets("Sheet1").Range("A2").Value

このコードでは、Sheet1のA2セルの値を cellValue という変数に格納しています。

セルの値を取得するだけならこの形で十分ですが、実務では1セルだけではなく、複数行を順番に処理するケースがほとんどです。そのため、ループ処理と組み合わせて使うことが重要になります。

・For文でセルの値を順番に取得する基本例

次のコードは、A2からA10までの値を順番に取得して、イミディエイトウィンドウに表示する例です。

Sub GetCellValuesByLoop()

    Dim targetWorksheet As Worksheet
    Dim currentRow As Long
    Dim cellValue As Variant

    Set targetWorksheet = ThisWorkbook.Worksheets("Sheet1")

    For currentRow = 2 To 10
        cellValue = targetWorksheet.Cells(currentRow, 1).Value
        Debug.Print cellValue
    Next currentRow

End Sub

このコードでは、2行目から10行目までを順番に処理しています。
Cells(currentRow, 1) は、「現在処理している行のA列」を意味します。

・なぜRangeではなくCellsを使うのか

ループ処理では、Range("A2") のような固定指定よりも、Cells(行番号, 列番号) を使う方が扱いやすくなります。

たとえば、行番号を変数で管理できるため、次のように行を順番に進める処理が書きやすくなります。

targetWorksheet.Cells(currentRow, 1).Value

実務では、処理対象の行数が変わることが多いため、行番号を変数で扱える Cells の方が柔軟です。
「A列を上から順番に確認する」「B列の値を見ながらC列に結果を出す」といった処理にも展開しやすくなります。

✅ VBAで最終行までループしてセルの値を取得する方法

実務でセルの値を取得する場合、行数が固定されていることはあまりありません。
毎日追加される売上データ、社員名簿、在庫一覧、申請リストなどでは、データ件数が増減するのが普通です。
そのため、A2からA10までのように固定範囲で処理を書くと、データが増えたときに取得漏れが発生します。
逆に広すぎる範囲を指定すると、空白行まで無駄に処理してしまい、処理速度や正確性に影響します。
そこで重要になるのが、最終行を取得して、その行までループする考え方です。
この方法を覚えると、データ件数が変わっても安定して動くマクロを作れるようになります。

・最終行を取得してループする基本コード

次のコードでは、A列の最終行を取得し、2行目から最終行までループしています。

Sub GetValuesUntilLastRow()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim cellValue As Variant

    Set targetWorksheet = ThisWorkbook.Worksheets("Sheet1")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row

    For currentRow = 2 To lastRow
        cellValue = targetWorksheet.Cells(currentRow, 1).Value
        Debug.Print cellValue
    Next currentRow

End Sub

・この書き方にしている理由

このコードでは、最終行を固定値にせず、実際にデータが入っている最終行を自動で取得しています。
これにより、データ件数が10件でも1000件でも、同じコードで処理できます。

特に実務では、毎回データ件数が変わる一覧表を扱うことが多いため、最終行の自動取得はほぼ必須です。
固定行で処理を書くと、後からデータが増えたときにマクロを修正する必要が出てしまいます。

・処理の流れを理解する

このコードの流れは、次のようになります。

  1. 処理対象のシートを変数にセットする
  2. A列の最終行を取得する
  3. 2行目から最終行まで順番にループする
  4. 各行のA列の値を取得する
  5. 取得した値を確認・利用する

このように、処理対象・最終行・現在行・取得値を分けて考えることで、後から処理を追加しやすくなります。

・実務で使うときの注意点

最終行を取得する列は、必ず「データが確実に入っている列」にする必要があります。
たとえば、A列に空白が混ざる可能性がある場合、A列を基準に最終行を取得すると、途中で処理対象が途切れることがあります。

社員番号、商品コード、伝票番号など、基本的に空白にならない列を基準にするのがおすすめです。

最終行の取得は、ループ処理の安定性を左右する重要なポイントです。
Rows.Count や End(xlUp) を使った最終行取得の考え方を詳しく確認したい方は、以下の記事もあわせてご確認ください。
👉 【VBA】最終行を取得する方法｜Rowsを活用して効率的にデータ範囲を特定する

✅ VBAで空白セルを除外して値を取得する方法

セルの値をループで取得するとき、空白セルの扱いは非常に重要です。
一覧表には、入力漏れ・区切り行・一時的な空白などが含まれることがあります。
空白を考慮しないまま処理すると、不要なデータとして扱われたり、後続処理でエラーになったりする可能性があります。
また、空白に見えてもスペースが入っているケースもあり、単純な空白判定だけでは不十分な場合もあります。
実務では「値があるセルだけ処理する」「空白ならスキップする」という設計がよく使われます。
この章では、空白セルを除外しながら安全に値を取得する方法を解説します。

・空白でないセルだけ取得する基本コード

Sub GetNonBlankValues()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim cellValue As String

    Set targetWorksheet = ThisWorkbook.Worksheets("Sheet1")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row

    For currentRow = 2 To lastRow

        cellValue = Trim(CStr(targetWorksheet.Cells(currentRow, 1).Value))

        If cellValue <> "" Then
            Debug.Print cellValue
        End If

    Next currentRow

End Sub

・なぜTrimとCStrを使っているのか

このコードでは、取得した値を CStr で文字列に変換し、Trim で前後の余分なスペースを取り除いています。

cellValue = Trim(CStr(targetWorksheet.Cells(currentRow, 1).Value))

実務データでは、見た目では空白に見えても、半角スペースが入っていることがあります。
そのまま判定すると「空白ではない」と判断されてしまうため、Trim を使って余分なスペースを除去しています。

また、セルには数値・文字列・日付などさまざまな値が入る可能性があります。
CStr を使うことで、文字列として比較しやすくしています。

・別の書き方と比べたメリット

単純に次のように書くこともできます。

If targetWorksheet.Cells(currentRow, 1).Value <> "" Then

ただし、この書き方ではスペースだけのセルを空白として扱えない場合があります。
そのため、入力データの品質が一定でない実務では、Trim を組み合わせた方が安全です。

・空白セルをスキップする設計のメリット

空白セルをスキップすることで、次のようなメリットがあります。

  1. 不要なデータを処理しない
  2. 後続処理のエラーを防ぎやすい
  3. 入力漏れのある行を除外できる
  4. 処理結果が安定しやすい

特に、メール作成・帳票出力・別シート転記などに値を使う場合、空白チェックは必ず入れておきたい処理です。

実務では、空白セルを除外するだけでなく、データの終了位置を空白で判断するケースも多くあります。
空白行まで繰り返す処理の設計については、以下の記事もあわせてご確認ください。
👉 【VBA】For文で空白行まで繰り返す方法｜安全な実務設計

✅ VBAで取得したセルの値を条件判定に使う方法

セルの値を取得する目的は、単に値を読むことだけではありません。
実務では、取得した値をもとに「処理するかどうか」「どの結果を返すか」「どのシートへ転記するか」を判断することが多くあります。
たとえば、ステータスが「完了」なら処理対象外にする、金額が一定以上ならチェック対象にする、空白ならエラーとして扱うといったケースです。
このような条件判定を行う場合、取得処理と判定処理を混ぜすぎると、コードが読みにくくなります。
値を取得し、その値をもとに判断し、必要な処理を行うという流れを意識することが大切です。
この章では、取得したセルの値を条件判定に使う実務的な書き方を紹介します。

・ステータス列の値を判定するコード例

次の例では、B列のステータスが「未処理」の行だけを取得して表示します。

Sub GetRowsByStatus()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim statusValue As String
    Dim itemName As String

    Set targetWorksheet = ThisWorkbook.Worksheets("Sheet1")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row

    For currentRow = 2 To lastRow

        itemName = Trim(CStr(targetWorksheet.Cells(currentRow, 1).Value))
        statusValue = Trim(CStr(targetWorksheet.Cells(currentRow, 2).Value))

        If statusValue = "未処理" Then
            Debug.Print itemName
        End If

    Next currentRow

End Sub

・このコードの設計意図

このコードでは、商品名や案件名などを想定したA列の値を itemName、ステータスを statusValue として取得しています。

変数名を value1 や data のようにすると、後から見たときに何の値か分かりにくくなります。
一方で、statusValue のように意味が伝わる名前にしておくと、条件式を見ただけで処理内容を理解しやすくなります。

・条件判定を増やす場合の考え方

たとえば、ステータスが「未処理」で、かつ商品名が空白でない場合だけ処理したい場合は、次のように書けます。

If statusValue = "未処理" And itemName <> "" Then
    Debug.Print itemName
End If

このように、取得した値を変数に入れてから判定すると、条件が増えても読みやすさを保ちやすくなります。

・実務で気をつけるポイント

条件判定では、文字列の表記ゆれに注意が必要です。

たとえば、次のような違いがあると、VBAでは別の値として扱われます。

  • 未処理
  • 未 処理
  • 未処理
  • 未処理済

見た目では似ていても、スペースや文字の違いがあると一致しません。
入力データが人の手で作られている場合は、表記ゆれが起きる前提で設計することが大切です。

✅ VBAで複数列のセル値をループで取得する方法

実務では、1列だけを取得して終わるケースよりも、複数列の値をまとめて扱うケースの方が多くあります。
たとえば、顧客名・メールアドレス・ステータスを同時に取得したり、商品コード・数量・単価を取得して金額を計算したりする処理です。
このとき、列ごとに処理をバラバラに書くと、コードが長くなり、修正漏れも起きやすくなります。
大切なのは、「1行分のデータを取得して、その行に対して処理する」という考え方です。
この考え方にすると、行単位でデータを扱えるため、転記やチェック処理にも応用しやすくなります。
ここでは、複数列の値を取得する実務向けの基本例を紹介します。

・氏名・部署・ステータスを取得するコード例

Sub GetMultipleColumnValues()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim employeeName As String
    Dim departmentName As String
    Dim statusValue As String

    Set targetWorksheet = ThisWorkbook.Worksheets("Sheet1")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row

    For currentRow = 2 To lastRow

        employeeName = Trim(CStr(targetWorksheet.Cells(currentRow, 1).Value))
        departmentName = Trim(CStr(targetWorksheet.Cells(currentRow, 2).Value))
        statusValue = Trim(CStr(targetWorksheet.Cells(currentRow, 3).Value))

        Debug.Print employeeName & " / " & departmentName & " / " & statusValue

    Next currentRow

End Sub

・なぜ1行単位で取得するのか

このコードでは、1行ごとに氏名・部署・ステータスを取得しています。
この書き方にすると、「現在処理している行の情報」をまとめて扱えるため、実務処理に展開しやすくなります。

たとえば、次のような処理へ発展できます。

  1. ステータスが「対象」の社員だけ抽出する
  2. 部署ごとに処理を分ける
  3. 氏名と部署を別シートへ転記する
  4. 未入力の列がある行だけチェックする

1セルずつ独立して処理するのではなく、「1行のデータ」として扱う意識を持つことが重要です。

・列番号を直接書くときの注意点

Cells(currentRow, 1) の「1」はA列を意味します。
ただし、列が増えたり順番が変わったりすると、コードの修正が必要になります。

小規模な処理であれば問題ありませんが、実務で列数が多い場合は、列番号を定数として管理すると読みやすくなります。

Const COLUMN_EMPLOYEE_NAME As Long = 1
Const COLUMN_DEPARTMENT_NAME As Long = 2
Const COLUMN_STATUS As Long = 3

このように定数化しておくと、「どの列を取得しているのか」が分かりやすくなります。

✅ VBAで列番号を定数化して保守しやすくする方法

VBAでセルの値を取得する処理は、最初はシンプルに書けます。
しかし、実務で長く使うマクロでは、列の追加・削除・並び替えが発生することがあります。
そのたびにコード内の列番号を探して修正するのは、ミスの原因になります。
特に、Cells(currentRow, 5) のような書き方が増えると、後から見たときに何の列を参照しているのか分かりにくくなります。
そこで有効なのが、列番号を意味のある定数名で管理する方法です。
この章では、保守性を高めるための実務向けの書き方を紹介します。

・列番号を定数で管理するコード例

Sub GetValuesWithColumnConstants()

    Const COLUMN_EMPLOYEE_NAME As Long = 1
    Const COLUMN_DEPARTMENT_NAME As Long = 2
    Const COLUMN_STATUS As Long = 3

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim employeeName As String
    Dim departmentName As String
    Dim statusValue As String

    Set targetWorksheet = ThisWorkbook.Worksheets("Sheet1")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, COLUMN_EMPLOYEE_NAME).End(xlUp).Row

    For currentRow = 2 To lastRow

        employeeName = Trim(CStr(targetWorksheet.Cells(currentRow, COLUMN_EMPLOYEE_NAME).Value))
        departmentName = Trim(CStr(targetWorksheet.Cells(currentRow, COLUMN_DEPARTMENT_NAME).Value))
        statusValue = Trim(CStr(targetWorksheet.Cells(currentRow, COLUMN_STATUS).Value))

        If statusValue = "対象" Then
            Debug.Print employeeName & " / " & departmentName
        End If

    Next currentRow

End Sub

・この書き方のメリット

列番号を定数化すると、コードの意味が分かりやすくなります。

たとえば、次のようなコードだけを見ると、3列目が何を意味するのかすぐには分かりません。

targetWorksheet.Cells(currentRow, 3).Value

しかし、次のように書かれていれば、ステータス列を取得していることが分かります。

targetWorksheet.Cells(currentRow, COLUMN_STATUS).Value

この違いは、コードが短いときには小さく見えます。
しかし、実務で処理が長くなったときには、読みやすさと修正しやすさに大きな差が出ます。

・別の書き方と比べた実務上の差

列番号をそのまま書く方法は、短く書けるというメリットがあります。
一方で、後から列構成が変わったときに修正箇所を見落としやすいというデメリットがあります。

定数化しておけば、列番号の意味が明確になり、仕様変更にも対応しやすくなります。
特に、他の人がコードを読む可能性がある場合や、数か月後に自分で修正する可能性がある場合は、定数化しておく価値があります。

✅ VBAで取得したセルの値を別シートへ出力する基本例

セルの値を取得する処理は、取得して終わりではありません。
実務では、取得した値を別シートへ出力したり、条件に合うデータだけを抽出したりすることがよくあります。
たとえば、一覧表から「対象」の行だけを抽出して、確認用シートにまとめるような処理です。
このとき、取得処理と出力処理を整理して書かないと、どの値をどこへ書き込んでいるのか分かりにくくなります。
また、出力先の行番号を別で管理しないと、上書きや空白行の原因になります。
ここでは、取得した値を別シートに出力する基本パターンを紹介します。

・条件に合う行だけ別シートへ出力するコード例

Sub OutputTargetRowsToAnotherSheet()

    Const COLUMN_EMPLOYEE_NAME As Long = 1
    Const COLUMN_DEPARTMENT_NAME As Long = 2
    Const COLUMN_STATUS As Long = 3

    Dim sourceWorksheet As Worksheet
    Dim outputWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim outputRow As Long
    Dim employeeName As String
    Dim departmentName As String
    Dim statusValue As String

    Set sourceWorksheet = ThisWorkbook.Worksheets("Sheet1")
    Set outputWorksheet = ThisWorkbook.Worksheets("Output")

    lastRow = sourceWorksheet.Cells(sourceWorksheet.Rows.Count, COLUMN_EMPLOYEE_NAME).End(xlUp).Row
    outputRow = 2

    For currentRow = 2 To lastRow

        employeeName = Trim(CStr(sourceWorksheet.Cells(currentRow, COLUMN_EMPLOYEE_NAME).Value))
        departmentName = Trim(CStr(sourceWorksheet.Cells(currentRow, COLUMN_DEPARTMENT_NAME).Value))
        statusValue = Trim(CStr(sourceWorksheet.Cells(currentRow, COLUMN_STATUS).Value))

        If statusValue = "対象" Then
            outputWorksheet.Cells(outputRow, 1).Value = employeeName
            outputWorksheet.Cells(outputRow, 2).Value = departmentName
            outputRow = outputRow + 1
        End If

    Next currentRow

End Sub

・出力行を別で管理する理由

このコードでは、読み取り用の行番号として currentRow、出力用の行番号として outputRow を使っています。

この2つを分けることが非常に重要です。
なぜなら、元データの行番号と出力先の行番号は必ずしも一致しないからです。

たとえば、元データの5行目と10行目だけが対象の場合、出力先では2行目・3行目に詰めて出力したいはずです。
そのため、出力先の行番号は別で管理する必要があります。

・実務でそのまま使う前に確認すべきポイント

このコードを実務で使う場合は、出力先シートの既存データをどう扱うかを決めておく必要があります。

たとえば、毎回上書きしたい場合は、出力前に既存データを削除する処理を追加します。

outputWorksheet.Range("A2:B" & outputWorksheet.Rows.Count).ClearContents

このような処理を入れておくと、前回の出力結果が残るトラブルを防ぎやすくなります。

✅ VBAでセルの値を取得するときによくある失敗

セルの値を取得する処理は基本的な内容ですが、実務では意外と失敗が多い部分です。
特に、サンプルコードをそのまま使った場合、対象シートや最終行、空白処理が実際のデータに合っていないことがあります。
また、処理対象の列を間違えたり、見出し行まで処理してしまったりすることもよくあります。
こうしたミスは、エラーとしてすぐに分かる場合もありますが、間違った結果を出力したまま気づかないケースもあります。
実務で怖いのは、マクロが止まることよりも、誤ったデータを正しいものとして扱ってしまうことです。
この章では、よくある失敗とその対策を整理します。

・シート指定を省略して意図しないシートを処理してしまう

次のようにシート指定を省略すると、アクティブシートが処理対象になります。

cellValue = Cells(currentRow, 1).Value

この書き方は短く書けますが、実務では危険です。
別のシートを開いている状態で実行すると、意図しないシートの値を取得してしまう可能性があります。

安全に書くなら、必ずシートを明示します。

cellValue = targetWorksheet.Cells(currentRow, 1).Value

・最終行の基準列を間違える

最終行を取得する列に空白があると、処理対象が途中で切れてしまうことがあります。
たとえば、A列に空白があるのにA列を基準に最終行を取得すると、正しい最終行にならない場合があります。

最終行は、できるだけ空白にならない列を基準にしましょう。

・見出し行まで処理してしまう

一覧表では、1行目が見出しであることが多いです。
その場合、ループ開始行は2行目にする必要があります。

For currentRow = 2 To lastRow

1行目から処理してしまうと、「氏名」「部署」「ステータス」といった見出し文字まで処理対象になってしまいます。

・空白やスペースを考慮していない

空白セルやスペースだけのセルを考慮しないと、不要な値として処理されることがあります。
特に、人が入力したデータでは、余分なスペースが混ざることがよくあります。

Trim を使って、前後のスペースを取り除いてから判定するのがおすすめです。

 

✅ VBAでセルの値取得を高速化したい場合の考え方

セルの値をループで取得する方法は分かりやすく、基本として非常に重要です。
しかし、処理件数が数万行以上になると、セルを1つずつ直接参照する方法では処理速度が遅くなることがあります。
Excel VBAでは、ワークシートへのアクセス回数が多いほど処理が重くなりやすい傾向があります。
そのため、大量データを扱う場合は、セル範囲を一度配列に取り込んでから処理する方法も検討します。
ただし、最初から配列処理だけを覚えようとすると、コードの意味が分かりづらくなることがあります。
まずはセルをループで取得する基本を理解し、そのうえで必要に応じて配列処理へ発展させるのがおすすめです。

・セルを直接参照する方法が向いているケース

セルを直接ループで取得する方法は、次のようなケースに向いています。

  1. データ件数がそれほど多くない
  2. 処理内容を分かりやすく書きたい
  3. 初めて作るマクロで動きを確認したい
  4. 途中でセルへの書き込みも行いたい

直接参照は処理の流れが見えやすいため、保守しやすいというメリットがあります。

・配列処理を検討した方がよいケース

一方で、次のような場合は配列処理を検討するとよいです。

  1. 数万行以上のデータを扱う
  2. 複数列をまとめて処理する
  3. 読み込みと書き込みを大量に行う
  4. 処理速度が明らかに遅い

配列に一度取り込むことで、ワークシートへのアクセス回数を減らせるため、処理速度の改善が期待できます。

・実務では段階的に改善するのが安全

最初から高速化だけを優先すると、コードが複雑になり、修正しづらくなることがあります。
実務では、まず読みやすく動くコードを作り、処理速度が問題になる場合に配列化する流れが安全です。

「速いけれど誰も直せないコード」よりも、「読みやすく、必要に応じて改善できるコード」の方が長く使えます。

実務では、大量データを扱う場合に配列を活用した処理が重要になります。
項目名に合わせたデータ転記を高速に行う方法については、以下の記事もあわせてご確認ください。
👉 【VBA】For文：配列を用いて項目名に合わせたデータ転記（実務レベル）

✅ VBAでセルの値を取得するループ処理の実務活用例

セルの値を取得するループ処理は、さまざまな業務自動化に応用できます。
単なる値の取得だけでなく、条件判定、転記、チェック、集計、帳票作成など、多くの処理の入口になります。
この基本を押さえておくと、VBAでできることが一気に広がります。
一方で、用途ごとに処理の組み立て方を変えないと、コードが複雑になりやすい点には注意が必要です。
大切なのは、「何のために値を取得するのか」を先に決めることです。
ここでは、実務でよく使われる活用パターンを紹介します。

・入力漏れチェックに使う

申請書や管理表で、必須項目が空白になっていないか確認する処理に使えます。

たとえば、A列の氏名が空白の場合に行番号を表示するコードは次のようになります。

Sub CheckBlankNames()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim employeeName As String

    Set targetWorksheet = ThisWorkbook.Worksheets("Sheet1")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row

    For currentRow = 2 To lastRow

        employeeName = Trim(CStr(targetWorksheet.Cells(currentRow, 1).Value))

        If employeeName = "" Then
            Debug.Print currentRow & "行目：氏名が未入力です"
        End If

    Next currentRow

End Sub

・条件に合うデータだけ抽出する

ステータスや区分をもとに、対象データだけを抽出する処理にも使えます。
たとえば、「未処理」「要確認」「対象」などの値を判定して、必要な行だけを別シートへ出力できます。

・金額や数量を取得して判定する

売上金額や在庫数を取得し、一定条件を満たすかどうかを判定できます。

例として、在庫数が10未満の行を確認する処理です。

Sub CheckLowStockItems()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim itemName As String
    Dim stockQuantity As Long

    Set targetWorksheet = ThisWorkbook.Worksheets("Sheet1")

    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row

    For currentRow = 2 To lastRow

        itemName = Trim(CStr(targetWorksheet.Cells(currentRow, 1).Value))

        If IsNumeric(targetWorksheet.Cells(currentRow, 2).Value) Then
            stockQuantity = CLng(targetWorksheet.Cells(currentRow, 2).Value)

            If stockQuantity < 10 Then
                Debug.Print itemName & "：在庫少"
            End If
        End If

    Next currentRow

End Sub

・数値判定でIsNumericを使う理由

在庫数や金額の列には、本来は数値が入るべきです。
しかし、実務データでは空白や文字列が混ざる可能性があります。

そのまま CLng などで数値変換すると、エラーになることがあります。
そこで、先に IsNumeric を使って数値かどうかを確認しています。

このように、データが常に正しい前提で書くのではなく、少し崩れたデータでも止まりにくい設計にしておくことが実務では大切です。

✅ VBAでセルの値を取得する処理を安定させる設計ポイント

VBAでセルの値を取得する処理は、基本を覚えればすぐに書けます。
しかし、実務で長く使うマクロにするには、安定して動く設計が必要です。
データ件数の変化、空白セル、列構成の変更、入力ミスなど、実務データにはさまざまな揺れがあります。
それらを無視してコードを書くと、最初は動いても後から壊れやすくなります。
また、処理の意味が分からないコードは、修正するたびにリスクが高まります。
この章では、セルの値取得を安定させるために意識したいポイントを整理します。

・処理対象のシートを必ず明示する

Cells や Range をそのまま使うのではなく、必ず対象シートを指定しましょう。

targetWorksheet.Cells(currentRow, 1).Value

このように書くことで、アクティブシートに依存しない安全なコードになります。

・最終行はデータの基準列で取得する

最終行の取得は、データが確実に入っている列を基準にします。
社員番号や商品コードなど、空白になりにくい列を選ぶのが基本です。

・取得した値は意味のある変数に入れる

取得した値を直接条件式に書くこともできますが、実務では変数に入れた方が読みやすくなります。

statusValue = Trim(CStr(targetWorksheet.Cells(currentRow, COLUMN_STATUS).Value))

このように、変数名から意味が分かるようにしておくと、後から修正しやすくなります。

・空白や数値変換を考慮する

文字列なら Trim、数値なら IsNumeric などを使い、データの状態を確認してから処理することが大切です。
実務では、すべてのセルに正しい値が入っているとは限りません。

・最初から複雑にしすぎない

処理速度や汎用性を意識しすぎて、最初から複雑なコードにすると、かえって保守しづらくなることがあります。
まずは分かりやすく書き、必要に応じて配列化・関数化・共通化していく流れがおすすめです。

 

✅ まとめ：VBAでセルの値を取得するループ処理を実務で使いこなそう

VBAでセルの値を取得するループ処理は、Excel自動化の基本でありながら、実務では非常に重要な処理です。

  • セルの値は Cells(行番号, 列番号).Value で取得できる
  • ループ処理では For currentRow = 2 To lastRow の形が基本
  • 最終行を取得すれば、データ件数が変わっても対応しやすい
  • 空白セルは Trim を使って安全に判定する
  • 複数列を扱う場合は、1行単位で取得する考え方が重要
  • 列番号は定数化すると保守しやすい
  • 条件に合う値だけを別シートへ出力する処理にも応用できる
  • 大量データでは配列処理への発展も検討する

セルの値を取得する処理は、単なる読み取りではなく、条件判定・転記・集計・チェック処理へつながる重要な入口です。
「動けばOK」のコードではなく、シート指定・最終行・空白処理・変数名を意識して書くことで、実務で長く使えるVBAコードになります。

    -VBAで自動化, VBA一覧, セル・値の取得と貼り付け, 取得