Option Explicit
Dim i As Long
Dim j As Long
''========================================
Sub 基本_1()
Range("A1").Value = Cells(1, 1).Value ''([1,1]は、左が行、右が列)
End Sub
''========================================
Sub 基本_2() ''変数の代入(数字で指定)
i = 1: j = 1 ''(数字部分を変数で代入[今回は共に『1』)
Range("A1").Value = Cells(i, j).Value
End Sub
''========================================
Sub 基本_3_応用() ''(列だけアルファベットで固定、行は変数(今回は[1]))
i = 1
Range("A1").Value = Range("A" & i).Value
''========================================
End Sub
[Range]と[Cells]プロパティに置き換え
