【VBA】特定範囲のセルの値を取得する方法｜ループ処理で実務データを扱う基本

Excel VBAで業務を自動化するとき、最初につまずきやすい処理の一つが「セルの値を取得する処理」です。

特に、1つのセルだけであれば Range("A1").Value のように取得できますが、実務では「A2からA100まで」「B列の入力済みデータだけ」「表の中の特定範囲」など、複数セルの値を順番に取得する場面が多くあります。

このようなときに基本となるのが、ループ処理を使って特定範囲のセルを1つずつ確認する方法です。

ただし、単にFor文で回せばよいわけではありません。
最終行の取得方法、空白セルの扱い、処理対象シートの明示、後から範囲が変わったときの修正しやすさなどを考えないと、実務ではすぐに使いにくいマクロになってしまいます。

この記事では、VBAで特定範囲のセルの値を取得する基本から、ループ処理を使った実務向けの書き方、保守しやすいコード設計までを解説します。

✅ VBAで特定範囲のセルの値を取得する基本を理解する
・セル1つの値を取得する基本
・実務ではVariant型を使う場面が多い理由
✅ VBAで特定範囲のセルをループ処理で取得する考え方
・固定範囲をFor Eachで取得する基本コード
・この書き方が実務で扱いやすい理由
✅ VBAで最終行までのセルの値を取得する実務向けループ処理
・最終行までループして値を取得するコード
・なぜ最終行を取得してから処理するのか
・実務で注意したい空白列の問題
✅ VBAで複数列のセルの値を取得する方法
・商品管理表から複数列の値を取得するコード
・変数名を具体的にするメリット
・数値に変換できないデータがある場合の注意点
✅ VBAで空白セルを除外して値を取得する方法
・空白セルをスキップするコード
・空白をスキップする設計が向いている場面
✅ VBAで取得したセルの値を別処理に活用する実務例
・在庫数を取得して発注対象を判定するコード
・このコードで重視している設計ポイント
✅ VBAでセル範囲を直接ループする方法と行番号でループする方法の違い
・For Eachでセル範囲を直接処理する方法
・行番号で処理する方法
・実務ではどちらを選ぶべきか
✅ VBAで取得処理を関数化して再利用しやすくする考え方
・最終行取得を関数化するコード
・関数化するメリット
✅ VBAで特定範囲の値を取得するときの実務上の注意点
・対象シートを必ず明示する
・見出し行を処理しないようにする
・空白や異常値を想定する
・列番号を直接書きすぎない
✅ VBAで特定範囲のセルの値を取得する完成形コード
・保守性を意識した実務向けコード
・この完成形コードが実務で使いやすい理由
✅ まとめ：VBAで特定範囲のセルの値を取得するならループ処理の設計が重要

✅ VBAで特定範囲のセルの値を取得する基本を理解する

VBAでセルの値を取得する処理は、非常に基本的な内容に見えます。
しかし、実務ではこの基本処理の書き方によって、後の保守性が大きく変わります。
例えば、処理対象のシートを省略したまま書いてしまうと、アクティブシートが変わっただけで別のシートを処理してしまうことがあります。
また、セル番地をコード内に直接何度も書くと、あとから範囲を変更するときに修正漏れが起きやすくなります。
「値を取得するだけ」と考えて雑に書くと、後から大きなトラブルにつながることもあります。
まずは、セルの値を取得する基本の考え方をしっかり押さえておきましょう。

・セル1つの値を取得する基本

セルの値を取得する最も基本的な書き方は、次のようになります。

Sub GetSingleCellValue()

    Dim targetValue As Variant

    targetValue = Worksheets("Sheet1").Range("A1").Value

    MsgBox targetValue

End Sub

このコードでは、Sheet1のA1セルの値を取得して、メッセージボックスに表示しています。

ここで重要なのは、Worksheets("Sheet1") を明示している点です。
シートを省略して Range("A1").Value と書くこともできますが、実務ではおすすめしません。

なぜなら、アクティブシートが変わった場合に、意図しないシートのA1セルを取得してしまう可能性があるためです。

・実務ではVariant型を使う場面が多い理由

セルには、文字列、数値、日付、空白、エラー値など、さまざまな値が入る可能性があります。
そのため、まず基本として値を受け取る変数には Variant 型を使うと扱いやすくなります。

もちろん、取得する値が必ず数値であると分かっている場合は Long や Double を使うこともあります。
ただし、実務データでは想定外の空白や文字列が混ざることもあるため、最初から型を固定しすぎるとエラーになる場合があります。

✅ VBAで特定範囲のセルをループ処理で取得する考え方

特定範囲のセルを取得するとき、最も基本になるのがFor文を使ったループ処理です。
ただし、ループ処理は便利な反面、対象範囲を間違えると不要なセルまで処理してしまいます。
また、空白行や見出し行を考慮しないと、結果がおかしくなることもあります。
実務では「どこからどこまでを処理するのか」を明確にしておくことが非常に重要です。
ここを曖昧にしたままコードを書くと、後から修正が難しくなります。
まずは、固定範囲をループする基本パターンから確認していきましょう。

・固定範囲をFor Eachで取得する基本コード

特定範囲のセルを1つずつ処理する場合は、For Each を使うと読みやすくなります。

Sub GetValuesFromFixedRange()

    Dim targetWorksheet As Worksheet
    Dim targetRange As Range
    Dim currentCell As Range

    '処理対象のシートを明示する
    Set targetWorksheet = Worksheets("Sheet1")

    '値を取得する範囲を指定する
    Set targetRange = targetWorksheet.Range("A2:A10")

    '指定範囲内のセルを1つずつ確認する
    For Each currentCell In targetRange
        Debug.Print currentCell.Value
    Next currentCell

End Sub

このコードでは、A2からA10までの値を順番に取得し、イミディエイトウィンドウに出力しています。

・この書き方が実務で扱いやすい理由

このコードでは、処理対象のシート、処理対象の範囲、現在処理中のセルをそれぞれ変数に分けています。

一見すると少し長く見えますが、実務ではこの書き方の方が安全です。

理由は、次の通りです。

処理対象のシートが明確になる
範囲を後から変更しやすい
何を処理しているコードなのか読み取りやすい
他の処理へ流用しやすい

短く書くだけなら、次のようにも書けます。

Sub GetValuesShortCode()

    Dim currentCell As Range

    For Each currentCell In Range("A2:A10")
        Debug.Print currentCell.Value
    Next currentCell

End Sub

ただし、この書き方では、どのシートの範囲を処理しているのかが曖昧です。
個人用の簡単な確認なら問題ない場合もありますが、実務で長く使うコードとしては不安が残ります。

特定範囲のセルを順番に取得する処理では、For Eachの考え方を理解しておくと、セル範囲を扱うマクロがかなり書きやすくなります。
【VBA】For Each を使ったセル範囲の操作方法の記事では、For Eachを使ってセル範囲を操作する基本から、実務で使いやすい書き方まで詳しく解説しています。

✅ VBAで最終行までのセルの値を取得する実務向けループ処理

実務では、A2:A10のように範囲が固定されていることは少なく、データ件数が日々変わることがよくあります。
そのため、固定範囲を指定するよりも、最終行を取得して処理範囲を決める方法の方が実用的です。
ここを固定範囲のまま作ってしまうと、新しいデータが追加されたときに処理対象から漏れてしまいます。
逆に、不要な空白行まで処理すると、余計な判定やエラーの原因になります。
最終行を正しく取得して処理することは、VBAでセルの値を扱ううえで非常に重要です。
この章では、実務で使いやすい最終行取得の考え方を確認していきます。

・最終行までループして値を取得するコード

次のコードでは、A列の最終行を取得し、A2から最終行までの値を順番に取得します。

Sub GetValuesUntilLastRow()

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

    '処理対象のシートを明示する
    Set targetWorksheet = Worksheets("Sheet1")

    'A列を基準にデータの最終行を取得する
    lastDataRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row

    '見出し行を除き、2行目から最終行まで処理する
    For currentRow = 2 To lastDataRow

        cellValue = targetWorksheet.Cells(currentRow, "A").Value

        Debug.Print cellValue

    Next currentRow

End Sub

・なぜ最終行を取得してから処理するのか

実務では、データ件数が毎回同じとは限りません。

例えば、昨日は50行だったデータが、今日は80行になっていることがあります。
このとき、コードで A2:A50 のように固定していると、51行目以降のデータが処理されません。

一方で、最終行を取得して処理すれば、データが増減しても自動的に対象範囲を調整できます。

このように、最終行を取得する設計にしておくことで、後からデータ件数が変わっても修正せずに使い続けることができます。

・実務で注意したい空白列の問題

最終行を取得するときは、どの列を基準にするかが重要です。

例えば、A列に空白が多い場合、A列を基準にすると本来の最終行より上の行が最終行として判断されることがあります。

そのため、実務では次のような列を基準にするのがおすすめです。

必ず入力される管理番号列
商品コード列
社員番号列
日付列
ID列

「なんとなくA列」で最終行を取るのではなく、データの中で最も信頼できる列を基準にすることが大切です。

最終行の取得方法を誤ると、必要なデータが処理されなかったり、空白行まで余計に処理してしまったりする原因になります。
【VBA】最終行を取得する方法｜Rowsを活用して効率的にデータ範囲を特定するの記事では、Rowsを活用して最終行を取得する方法を、実務でよくある失敗例とあわせて詳しく解説しています。

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

実務の表では、1列だけを取得することよりも、複数列の値を組み合わせて処理する場面が多くあります。
例えば、商品名、数量、単価を取得して金額を計算したり、氏名と部署を取得して判定したりする処理です。
このとき、列番号や列名を直接何度も書いてしまうと、あとから列構成が変わったときに修正が大変になります。
また、どの列の値を取得しているのか分かりにくいコードは、引き継ぎ時にも問題になります。
複数列の値を扱う場合は、変数名を分かりやすくし、処理の意図が伝わるように書くことが重要です。
ここでは、表形式のデータを想定して、複数列の値を取得する方法を解説します。

・商品管理表から複数列の値を取得するコード

次の例では、A列に商品コード、B列に商品名、C列に在庫数がある表を想定しています。

Sub GetValuesFromMultipleColumns()

    Dim targetWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim currentRow As Long

    Dim productCode As String
    Dim productName As String
    Dim stockQuantity As Long

    '処理対象のシートを指定する
    Set targetWorksheet = Worksheets("Sheet1")

    '商品コード列を基準に最終行を取得する
    lastDataRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row

    '2行目から最終行まで、各行の値を取得する
    For currentRow = 2 To lastDataRow

        productCode = targetWorksheet.Cells(currentRow, "A").Value
        productName = targetWorksheet.Cells(currentRow, "B").Value
        stockQuantity = targetWorksheet.Cells(currentRow, "C").Value

        Debug.Print productCode & " / " & productName & " / " & stockQuantity

    Next currentRow

End Sub

・変数名を具体的にするメリット

このコードでは、a や b のような曖昧な変数名ではなく、productCode、productName、stockQuantity という名前にしています。

これにより、コードを見たときに「何の値を扱っているのか」がすぐに分かります。

実務では、マクロを作った本人だけがコードを見るとは限りません。
数か月後の自分、別の担当者、引き継ぎ先の人が見る可能性があります。

そのため、少し長くても意味が分かる変数名にしておく方が、結果的に保守しやすくなります。

・数値に変換できないデータがある場合の注意点

上記のコードでは、在庫数を Long 型で受け取っています。
ただし、C列に空白や文字が入っていると、型不一致エラーになる可能性があります。

実務データでは、想定外の入力が混ざることもあるため、安全に処理するなら次のように確認してから代入する方法もあります。

Sub GetStockQuantitySafely()

    Dim targetWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim currentRow As Long
    Dim stockQuantity As Long

    Set targetWorksheet = Worksheets("Sheet1")

    lastDataRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row

    For currentRow = 2 To lastDataRow

        If IsNumeric(targetWorksheet.Cells(currentRow, "C").Value) Then
            stockQuantity = CLng(targetWorksheet.Cells(currentRow, "C").Value)
        Else
            stockQuantity = 0
        End If

        Debug.Print stockQuantity

    Next currentRow

End Sub

このように、データの状態を確認してから処理することで、想定外の値が入っていてもマクロが止まりにくくなります。

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

セルの値を取得する処理では、空白セルの扱いが非常に重要です。
空白をそのまま処理してしまうと、不要な出力が増えたり、後続処理でエラーになったりすることがあります。
特に、入力途中の管理表や複数人で更新するファイルでは、空白行が混ざることは珍しくありません。
そのため、空白を無視するのか、エラーとして扱うのか、初期値として扱うのかを事前に決めておく必要があります。
この判断を曖昧にしたままコードを書くと、実務で使ったときに結果が不安定になります。
ここでは、空白セルを除外して値を取得する基本的な方法を紹介します。

・空白セルをスキップするコード

Sub GetValuesExceptBlankCells()

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

    Set targetWorksheet = Worksheets("Sheet1")

    lastDataRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row

    For currentRow = 2 To lastDataRow

        cellValue = targetWorksheet.Cells(currentRow, "A").Value

        '空白セルは処理しない
        If cellValue <> "" Then
            Debug.Print cellValue
        End If

    Next currentRow

End Sub

・空白をスキップする設計が向いている場面

空白セルをスキップする方法は、次のような場面に向いています。

任意入力の項目を処理する場合
入力済みデータだけを対象にしたい場合
空白行が混ざる表を扱う場合
未入力を無視して一覧化したい場合

一方で、空白が「入力漏れ」を意味する場合は、スキップしてはいけません。
その場合は、空白を検出して警告を出す設計にする必要があります。

つまり、空白セルの扱いは「処理上不要だから無視する」のか、「業務上のミスとして検出する」のかを分けて考えることが大切です。

空白セルを除外する処理では、「空白だった場合にどう動くか」をあらかじめ決めておくことが重要です。
【VBA】IF文で空白なら次の処理をさせる方法｜スキップ処理と安全な条件分岐を実務目線で解説の記事では、IF文を使って空白セルのときに次の処理へ進む方法を、スキップ処理の考え方とあわせて実務目線で詳しく解説しています。

✅ VBAで取得したセルの値を別処理に活用する実務例

セルの値を取得する目的は、値を表示することだけではありません。
実務では、取得した値を使って判定したり、別シートへ転記したり、集計したりすることが多くあります。
そのため、値を取得する処理は、他の自動化処理の土台になります。
ここをしっかり作っておくと、後から条件分岐や転記処理を追加しやすくなります。
逆に、取得処理が雑だと、その後の処理も複雑になりやすくなります。
ここでは、取得した値を使って在庫数を判定する例を紹介します。

・在庫数を取得して発注対象を判定するコード

Sub CheckLowStockItems()

    Dim targetWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim currentRow As Long

    Dim productCode As String
    Dim productName As String
    Dim stockQuantity As Long
    Dim reorderThreshold As Long

    '在庫がこの数以下の場合に発注対象とする
    reorderThreshold = 10

    Set targetWorksheet = Worksheets("Sheet1")

    lastDataRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row

    For currentRow = 2 To lastDataRow

        productCode = targetWorksheet.Cells(currentRow, "A").Value
        productName = targetWorksheet.Cells(currentRow, "B").Value

        If IsNumeric(targetWorksheet.Cells(currentRow, "C").Value) Then
            stockQuantity = CLng(targetWorksheet.Cells(currentRow, "C").Value)
        Else
            stockQuantity = 0
        End If

        '在庫数が基準以下なら発注対象として出力する
        If stockQuantity <= reorderThreshold Then
            Debug.Print productCode & " / " & productName & " / 発注対象"
        End If

    Next currentRow

End Sub

・このコードで重視している設計ポイント

このコードでは、発注基準を reorderThreshold という変数にしています。

もし条件を直接コード内に書くと、次のようになります。

If stockQuantity <= 10 Then

これでも動きますが、実務ではおすすめしません。
なぜなら、後から基準値を変更するときに、コード内のどこに「10」が書かれているのか探す必要があるためです。

一方で、reorderThreshold のように意味のある変数にしておけば、何のための数値なのかが分かりやすくなります。
また、発注基準を変更するときも、変数に代入している箇所だけを修正すれば済みます。

このように、処理条件を変数化しておくことで、後から変更しやすいコードになります。

✅ VBAでセル範囲を直接ループする方法と行番号でループする方法の違い

VBAでセルの値を取得する場合、For Each でセル範囲を直接ループする方法と、行番号を使ってループする方法があります。
どちらも正しい書き方ですが、実務では目的によって使い分けることが大切です。
この違いを理解していないと、後から列を追加したいときや、行番号を使って別列へ書き込みたいときに困ることがあります。
単純に値を読むだけなら For Each が見やすい場合もあります。
一方で、同じ行の複数列を扱う場合は、行番号でループした方が分かりやすくなります。
ここでは、2つの書き方の違いを実務目線で整理します。

・For Eachでセル範囲を直接処理する方法

Sub LoopByEachCell()

    Dim targetWorksheet As Worksheet
    Dim targetRange As Range
    Dim currentCell As Range

    Set targetWorksheet = Worksheets("Sheet1")
    Set targetRange = targetWorksheet.Range("A2:A10")

    For Each currentCell In targetRange
        Debug.Print currentCell.Value
    Next currentCell

End Sub

この書き方は、1列の値を順番に確認するだけなら非常に読みやすいです。

・行番号で処理する方法

Sub LoopByRowNumber()

    Dim targetWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim currentRow As Long

    Set targetWorksheet = Worksheets("Sheet1")

    lastDataRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row

    For currentRow = 2 To lastDataRow
        Debug.Print targetWorksheet.Cells(currentRow, "A").Value
        Debug.Print targetWorksheet.Cells(currentRow, "B").Value
    Next currentRow

End Sub

この書き方は、同じ行の複数列を扱う場合に向いています。

例えば、A列の商品コード、B列の商品名、C列の在庫数をまとめて扱う場合は、行番号で処理した方が分かりやすくなります。

・実務ではどちらを選ぶべきか

判断基準は次の通りです。

1列だけ確認するなら For Each
複数列を同じ行単位で扱うなら行番号ループ
別列へ結果を書き込むなら行番号ループ
処理対象範囲が明確なら For Each
表全体を扱うなら行番号ループ

特に実務の管理表では、行単位でデータを見ることが多いため、行番号ループの方が応用しやすい場面が多いです。

✅ VBAで取得処理を関数化して再利用しやすくする考え方

セルの値を取得する処理は、多くのマクロで繰り返し使われます。
そのため、毎回同じようなコードを書いていると、修正が必要になったときに手間が増えます。
また、最終行取得や空白判定などの処理を毎回バラバラに書くと、コード全体の統一感も失われます。
実務で長く使うマクロでは、よく使う処理を関数化しておくと保守性が高まります。
ただし、何でも関数化すればよいわけではありません。
繰り返し使う処理や、意味のまとまりがある処理を切り出すことが重要です。

・最終行取得を関数化するコード

Function GetLastDataRow(ByVal targetWorksheet As Worksheet, ByVal targetColumn As String) As Long

    '指定列の最終データ行を取得する
    GetLastDataRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, targetColumn).End(xlUp).Row

End Function

この関数を使うと、メイン処理は次のように書けます。

Sub GetValuesUsingFunction()

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

    Set targetWorksheet = Worksheets("Sheet1")

    lastDataRow = GetLastDataRow(targetWorksheet, "A")

    For currentRow = 2 To lastDataRow

        cellValue = targetWorksheet.Cells(currentRow, "A").Value
        Debug.Print cellValue

    Next currentRow

End Sub

・関数化するメリット

最終行取得を関数化すると、次のようなメリットがあります。

同じ処理を何度も書かなくて済む
メイン処理が読みやすくなる
修正箇所を集約できる
他のマクロでも再利用できる

ただし、初心者のうちは、無理にすべてを関数化する必要はありません。
まずは処理の流れを理解し、同じ処理が何度も出てきた段階で関数化を検討するとよいです。

✅ VBAで特定範囲の値を取得するときの実務上の注意点

セルの値を取得する処理は、見た目以上に実務トラブルが起きやすい部分です。
特に、データがきれいに整っている前提でコードを書くと、実際の運用で止まりやすくなります。
現場のExcelファイルには、空白、全角スペース、想定外の文字、数式のエラー値などが混ざることがあります。
そのため、取得処理では「正常なデータだけが入っている」と考えない方が安全です。
また、シート名や列構成が変わる可能性もあるため、変更に強い書き方を意識する必要があります。
ここでは、実務で特に注意したいポイントを整理します。

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

Range("A1") のようにシートを省略すると、アクティブシートに依存します。

実務では、次のように必ずシートを明示するのがおすすめです。

targetWorksheet.Range("A1").Value

これにより、処理対象が明確になり、誤処理を防ぎやすくなります。

・見出し行を処理しないようにする

表の1行目に見出しがある場合、通常は2行目から処理します。

For currentRow = 2 To lastDataRow

このように開始行を明確にしておくことで、見出しをデータとして処理するミスを防げます。

・空白や異常値を想定する

実務では、次のようなデータが混ざることがあります。

空白セル
文字列が入った数値列
数式エラー
全角スペース
入力途中の行

このようなデータを想定せずに処理すると、マクロが止まったり、誤った結果になったりします。

・列番号を直接書きすぎない

Cells(currentRow, 3) のように列番号だけで書くと、後から見たときに何の列か分かりにくくなります。

そのため、実務では次のように列名をコメントで補足したり、定数化したりすると保守しやすくなります。

Const PRODUCT_CODE_COLUMN As String = "A"
Const PRODUCT_NAME_COLUMN As String = "B"
Const STOCK_QUANTITY_COLUMN As String = "C"

このようにしておくと、列構成が変わったときにも修正箇所が分かりやすくなります。

✅ VBAで特定範囲のセルの値を取得する完成形コード

ここまでの内容を踏まえると、実務では「対象シートを明示する」「最終行を取得する」「列や開始行を分かりやすく管理する」「空白や数値判定を考慮する」といった設計が重要になります。
これらを組み合わせることで、単に動くだけではなく、後から修正しやすいコードになります。
特に、管理表や一覧表を処理するマクロでは、最初から保守性を意識しておくことが大切です。
ここでは、特定範囲の値を取得し、在庫数を判定する実務向けの完成形コードを紹介します。
このコードをベースにすれば、転記、集計、チェック処理にも応用しやすくなります。
まずは全体の流れを確認し、自分の表に合わせて調整してみてください。

・保守性を意識した実務向けコード

Option Explicit

Sub GetCellValuesForStockCheck()

    Const START_ROW As Long = 2
    Const PRODUCT_CODE_COLUMN As String = "A"
    Const PRODUCT_NAME_COLUMN As String = "B"
    Const STOCK_QUANTITY_COLUMN As String = "C"
    Const REORDER_THRESHOLD As Long = 10

    Dim targetWorksheet As Worksheet
    Dim lastDataRow As Long
    Dim currentRow As Long

    Dim productCode As String
    Dim productName As String
    Dim stockQuantity As Long
    Dim stockCellValue As Variant

    '処理対象のシートを明示する
    Set targetWorksheet = Worksheets("Sheet1")

    '商品コード列を基準に最終行を取得する
    lastDataRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, PRODUCT_CODE_COLUMN).End(xlUp).Row

    'データ行が存在しない場合は処理を終了する
    If lastDataRow < START_ROW Then
        MsgBox "処理対象のデータがありません。"
        Exit Sub
    End If

    '2行目から最終行まで、行単位で値を取得する
    For currentRow = START_ROW To lastDataRow

        productCode = Trim(targetWorksheet.Cells(currentRow, PRODUCT_CODE_COLUMN).Value)
        productName = Trim(targetWorksheet.Cells(currentRow, PRODUCT_NAME_COLUMN).Value)
        stockCellValue = targetWorksheet.Cells(currentRow, STOCK_QUANTITY_COLUMN).Value

        '商品コードが空白の場合は処理対象外にする
        If productCode <> "" Then

            '在庫数が数値の場合のみ判定に使用する
            If IsNumeric(stockCellValue) Then
                stockQuantity = CLng(stockCellValue)
            Else
                stockQuantity = 0
            End If

            '在庫数が基準以下の場合、確認用に出力する
            If stockQuantity <= REORDER_THRESHOLD Then
                Debug.Print productCode & " / " & productName & " / 在庫数：" & stockQuantity
            End If

        End If

    Next currentRow

    MsgBox "セルの値取得と在庫確認が完了しました。"

End Sub

・この完成形コードが実務で使いやすい理由

このコードでは、列や開始行、発注基準を定数として定義しています。

これにより、後から列構成や基準値が変わった場合でも、コードの上部を修正するだけで対応できます。

また、商品コードが空白の場合は処理しないようにしているため、入力途中の行を誤って処理しにくくなっています。
在庫数についても、数値かどうかを確認してから処理しているため、文字列や空白が混ざっていてもマクロが止まりにくい構成です。

このように、実務で使うマクロでは「正常なデータだけを前提にしない」ことが非常に重要です。

✅ まとめ：VBAで特定範囲のセルの値を取得するならループ処理の設計が重要

セル1つの値を取得する基本は Range.Value
実務では処理対象シートを必ず明示する
固定範囲なら For Each が読みやすい
最終行まで処理するなら行番号ループが便利
複数列を扱う場合は行単位で処理すると分かりやすい
空白セルや異常値を想定した設計が重要
よく使う処理は関数化すると再利用しやすい
定数を使うと列変更や条件変更に強くなる

VBAで特定範囲のセルの値を取得する処理は、さまざまな自動化の土台になります。

値を取得できるようになると、転記、集計、チェック、条件分岐、帳票作成など、多くの処理へ応用できます。

ただし、実務で長く使うマクロにするためには、単に動くコードではなく、
どのシートを処理するのか、どの範囲を対象にするのか、空白や異常値をどう扱うのかを明確にすることが大切です。

まずは、今回紹介したループ処理を使って、自分の管理表や一覧表から必要な値を取得する処理を作ってみてください。