【VBA】指定したセルを取得する方法。セルから値を取り出し、クリアする方法（複数範囲、ループ処理）

Sub test()

Debug.Print ThisWorkbook.Worksheets(1).Cells(2, 1).Value
'>>リンゴ

End Sub

Sub test2()

'Rangeを使う場合
With ThisWorkbook.Worksheets(1)
    .Range("A1:D6").Value = "変更"
End With

'Cellを使う場合はこんな感じ
With ThisWorkbook.Worksheets(1)
    .Range(.Cells(1, 1), .Cells(6, 4)).Value = "変更"
End With

End Sub

Sub test()

Debug.Print ThisWorkbook.Worksheets(1).Cells(2, 1).Value
'>>リンゴ

End Sub

Sub test3()

'単一のセルに値を入れる場合は、単一のセルを指定
ThisWorkbook.Worksheets(1).Cells(10, 1).Value = "ここはA1"

'複数のセルに入れるには複数のセルを指定するだけ
With ThisWorkbook.Worksheets(1)
    .Range(.Cells(12, 1), .Cells(15, 3)).Value = "A12~C15"
End With

End Sub

Sub test4()

'単一の場合
ThisWorkbook.Worksheets(1).Cells(2, "A").ClearContents

'複数の場合
With ThisWorkbook.Worksheets(1)
    .Range(.Cells(5, "A"), .Cells(8, "B")).ClearContents
End With

End Sub

Sub test5()

'単一の場合
ThisWorkbook.Worksheets(1).Cells(2, "A").Clear

'複数の場合
With ThisWorkbook.Worksheets(1)
    .Range(.Cells(5, "A"), .Cells(8, "B")).Clear
End With

End Sub

Sub test7()

'プログラムが複雑になったら積極的に変数を使いましょう
'圧倒的にコードが分かりやすくなります。
Dim r As Range
Dim Rng As Range

Set Rng = ThisWorkbook.Worksheets(2).Range("A2:A6")

'For文を使いセル一つずつ値を取り出す
'これが基本
For Each r In Rng
    Debug.Print r.Value
Next

End Sub

Sub test7()

'プログラムが複雑になったら積極的に変数を使いましょう
'圧倒的にコードが分かりやすくなります。
Dim r As Range
Dim Rng As Range

Set Rng = ThisWorkbook.Worksheets(2).Range("A2:A6")


'まとめて何かに使用する場合は配列に格納させる
'配列は少し不親切なので当サイトで作ったオリジナル関数を使って分かりやすくしてます。
Dim arrs As Variant

For Each r In Rng
    Call add_Elm(arrs, r.Value)
Next

End Sub

Function add_Elm(ByRef arrs As Variant, ByVal elm As Variant)
    Dim num As Long
    
    'Is_correct_array関数で配列がエラーを起こす空の状態かどうか判定
    
    'エラーを起こす空の状態
    If Not Is_correct_array(arrs) Then
    
        '要素数が一つ＝「0」で宣言
        ReDim arrs(0)
        arrs(0) = elm
    
    'エラーを起こす空の状態ではない
    Else
        num = UBound(arrs)
        ReDim Preserve arrs(num + 1)
        arrs(num + 1) = elm
    End If
End Function



Function Is_correct_array(ByVal arrs As Variant)
    Dim a As Long
    
    'なんでもいいが、エラーを生じさせる
    On Error GoTo err
    a = UBound(arrs)

    'エラーが生じたときエラー番号で9か13の場合はFalse
err:
    If err.number = 9 Or err.number = 13 Then
        Is_correct_array = False
    Else
        Is_correct_array = True
    End If
    
End Function