セルからデータを取得する方法を紹介します
Cells
行番号と列番号を指定してセルを参照します
Option Explicit
Sub GetCellsValue()
Dim name As String
name = Cells(2, 1).Value
MsgBox (name)
End Sub2行1列目（A2）のデータを取得し、表示するプログラムです
1行目：変数の宣言を強制
3行目：GetCellsValueという名前で関数を宣言
4行目：nameという名前で文字列（String）の変数を用意
6行目：nameに2行1列目（A2）のセルの値を格納
8行目：nameの表示
9行目：関数の終わり
Range
セルのアドレスを指定してセルを参照します。
範囲を指定することができます
Option Explicit
Sub GetCellsValue()
Dim nameCell As Range
Dim name As String
For Each nameCell In Range("A2:A11")
name = nameCell.Value
MsgBox (name)
Next nameCell
End Sub
A2～A11のデータを取得し、1つずつ表示するプログラムです
1行目：変数の宣言を強制
3行目：GetCellsValueという名前で関数を宣言
4行目：nameCellという名前でセル範囲（Range）の変数を用意
5行目：nameという名前で文字列（String）の変数を用意
7行目：A2からA11の範囲を取得し、1セルずつnameCellに格納
8行目：nameにnameCellの値を格納
9行目：nameの表示
10行目：次の範囲へ
11行目：関数の終わり
ActiveCell
現在選択されているセルを参照します
Option Explicit
Sub GetCellsValue()
Dim name As String
name = ActiveCell.Value
MsgBox (name)
End Sub現在選択中のセル（A7）のデータを取得し、表示するプログラムです
1行目：変数の宣言を強制
3行目：GetCellsValueという名前で関数を宣言
4行目：nameという名前で文字列（String）の変数を用意
6行目：nameに現在選択されているセル（A7）の値を格納
8行目：nameの表示
9行目：関数の終わり
