Excel VBAでセル操作を完全攻略！値の取得・設定方法から動的処理まで解説【初心者向け】

「Excel VBAでセルの値を操作するにはどうすればいいの？」

Excelで自動化を始める第一歩として、セル操作は欠かせません。この記事では、セルの値を取得・設定する方法を基礎から分かりやすく解説！具体例を交えて、初心者でもすぐに使える知識をお届けします。

(練習用ファイル付)増強改訂版　できるイラストで学ぶ入社1年目からのExcel VBA (できるイラストで学ぶシリーズ)

インプレス

¥2,288 （2025/01/10 14:13時点 | Amazon調べ）

Amazon

楽天市場

ポチップ

1. VBAでセルを操作する基本

Excel VBAでセルを操作するには、主に以下の2つのプロパティを使います。

Range: 「A1」や「B2:C5」のようにセルや範囲を指定するのに適しています。
Cells: 行番号と列番号を指定してセルを操作するのに適しています。

2. セルの値を取得する方法

まずは、セルから値を取得する基本的なコードを確認しましょう。

例1: Rangeを使った値の取得

Sub GetValueWithRange()
    Dim cellValue As Variant
    cellValue = Range("A1").Value
    MsgBox "セルA1の値は " & cellValue & " です"
End Sub

Sub GetValueWithRange()

Dim cellValue As Variant

cellValue = Range("A1").Value

MsgBox "セルA1の値は " & cellValue & " です"

End Sub

例2: Cellsを使った値の取得

Sub GetValueWithCells()
    Dim cellValue As Variant
    cellValue = Cells(1, 1).Value ' A1を指定
    MsgBox "セルA1の値は " & cellValue & " です"
End Sub

Sub GetValueWithCells()

Dim cellValue As Variant

cellValue = Cells(1, 1).Value ' A1を指定

MsgBox "セルA1の値は " & cellValue & " です"

End Sub

ポイント:

Rangeはわかりやすいですが、Cellsを使えば動的にセルを指定できます。

3. セルに値を設定する方法

次に、セルに値を設定する方法を紹介します。

例1: Rangeを使った値の設定

Sub SetValueWithRange()
    Range("A1").Value = "こんにちは"
End Sub

Sub SetValueWithRange()

Range("A1").Value = "こんにちは"

End Sub

例2: Cellsを使った値の設定

Sub SetValueWithCells()
    Cells(1, 1).Value = "Hello"
End Sub

Sub SetValueWithCells()

Cells(1, 1).Value = "Hello"

End Sub

応用例: ユーザーの入力をセルに反映させる

Sub UserInputToCell()
    Dim userInput As String
    userInput = InputBox("A1セルに入力する値を教えてください:")
    Range("A1").Value = userInput
End Sub

Sub UserInputToCell()

Dim userInput As String

userInput = InputBox("A1セルに入力する値を教えてください:")

Range("A1").Value = userInput

End Sub

4. 動的にセルを操作する方法

データが増減する状況に対応するには、動的にセルを指定することが重要です。

例1: 最終行を取得して値を設定

Sub SetValueToLastRow()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(lastRow + 1, 1).Value = "新しいデータ"
End Sub

Sub SetValueToLastRow()

Dim lastRow As Long

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

Cells(lastRow + 1, 1).Value = "新しいデータ"

End Sub

このコードは、A列の最終行の下に新しい値を追加します。

例2: 範囲全体に値を設定

Sub SetValuesToRange()
    Dim rng As Range
    Set rng = Range("A1:A10")
    rng.Value = "一括設定"
End Sub

Sub SetValuesToRange()

Dim rng As Range

Set rng = Range("A1:A10")

rng.Value = "一括設定"

End Sub

5. 条件を使ったセルの操作

条件に基づいてセルを操作する例を見てみましょう。

例1: 特定の値を検索して変更

Sub ReplaceSpecificValue()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        If cell.Value = "対象値" Then
            cell.Value = "変更後の値"
        End If
    Next cell
End Sub

Sub ReplaceSpecificValue()

Dim cell As Range

For Each cell In Range("A1:A10")

If cell.Value = "対象値" Then

cell.Value = "変更後の値"

End If

Next cell

End Sub

例2: 空白セルを埋める

Sub FillBlankCells()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        If IsEmpty(cell.Value) Then
            cell.Value = "空白補充"
        End If
    Next cell
End Sub

Sub FillBlankCells()

Dim cell As Range

For Each cell In Range("A1:A10")

If IsEmpty(cell.Value) Then

cell.Value = "空白補充"

End If

Next cell

End Sub

6. セル操作の応用: 数式の設定

セルに値だけでなく数式を設定することも可能です。

例: 数式を設定

Sub SetFormula()
    Range("B1").Formula = "=SUM(A1:A10)"
End Sub

Sub SetFormula()

Range("B1").Formula = "=SUM(A1:A10)"

End Sub

このコードは、セルB1にA1からA10の合計を計算する数式を設定します。

まとめ

この記事では、Excel VBAでのセルの値の取得・設定方法を解説しました。セル操作はVBAプログラミングの基本中の基本です。この記事で学んだ内容をもとに、実際の業務で自動化を試してみてください！

(練習用ファイル付)増強改訂版　できるイラストで学ぶ入社1年目からのExcel VBA (できるイラストで学ぶシリーズ)

インプレス

¥2,288 （2025/01/10 14:13時点 | Amazon調べ）

Amazon

楽天市場

ポチップ

Excel VBAで繰り返し処理を簡単に！For NextとDo Whileを完全解説【初心者向け】

「Excel VBAで繰り返し処理ってどうやって書くの？」大量のデータを扱う時、同じ処理を何度も繰り返すのは非効率的です。この記事では、繰り返し処理を簡単に実現するための基本スキル「For Next」と「Do While」について、初心者...

Excel VBAで効率的な条件分岐！If Then Elseの使い方を完全マスター【初心者向け】

「Excel VBAで条件によって処理を分けたいけど、どう書けばいいの？」プログラムでの条件分岐は、効率的なコードを書くための重要なスキルです。この記事では、初心者の方でも理解しやすいように、If Then Elseステートメントの基本と...

EXCEL VBAでエラーを回避！On Errorステートメントの基本と活用術【初心者向け】

「VBAでコードを書いていて、エラーでプログラムが止まった経験はありませんか？」エラー処理をしっかり行えば、プログラムの信頼性が格段に向上します。この記事では、エラー処理の基礎から具体的な活用例まで、初心者でもすぐに使えるテクニックを解説...