VBA学習ツール無料配布！#23 テーマ: vbaでfor eachループを実装！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim sourceTable As ListObject
    Dim destTable As ListObject
    Dim sourceRow As ListRow
    Dim destRow As ListRow
    ' シート「読み込み＆書き込みシート」を取得
    Set ws = ThisWorkbook.Sheets("読み込み＆書き込みシート")
    ' 転記元テーブルと転記先テーブルを取得
    Set sourceTable = ws.ListObjects("転記元テーブル")
    Set destTable = ws.ListObjects("転記先テーブル")
    ' 転記先テーブルのデータを削除
    If destTable.ListRows.Count > 0 Then
        destTable.DataBodyRange.Delete
    End If
    ' 転記元テーブルの各行を転記先テーブルに追加
    For Each sourceRow In sourceTable.ListRows
        Set destRow = destTable.ListRows.Add
        destRow.Range.Value = sourceRow.Range.Value
    Next sourceRow
    ' シート「読み込み＆書き込みシート」をアクティベート
    ws.Activate
    ' 実行完了のメッセージを表示
    MsgBox "実行完了"
End Sub