VBA学習ツール無料配布！#31 テーマ:vbaでセル範囲データを一括取得しよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("読み込みand書き込みシート")
    ' アクティベート
    ws.Activate
    Dim getRng As Range: Set getRng = ws.Range(ws.Cells(6, 2), ws.Cells(7, 4))
    Dim writeRng As Range: Set writeRng = ws.Range(ws.Cells(10, 2), ws.Cells(11, 4))
    Dim data As Variant: data = getRng.Value
    Dim i As Integer
    Dim j As Integer
    ' 初期化
    writeRng.ClearContents
    For i = LBound(data, 1) To UBound(data, 1)
        For j = LBound(data, 2) To UBound(data, 2)
            If Not IsNumeric(data(i, j)) Then
                ' GoToは指定した箇所に処理を飛ばすことができる（処理が分かりにくくなることがある為, 乱用厳禁）
                GoTo NextNode
            End If
            writeRng.Cells(i, j) = data(i, j)
NextNode:
        Next j
    Next i
    MsgBox "データ取得・数値データ書き込みを完了しました。", vbInformation
End Sub