VBA学習ツール無料配布！#32 テーマ:vbaでテーブルのデータを取得！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim dataArr As Variant
    Dim dataStr As String
    Dim i As Integer
    Dim j As Integer
    ' 最初に, シート「データテーブルシート」をアクティベートする。
    Set ws = ThisWorkbook.Worksheets("データテーブルシート")
    ws.Activate
    ' テーブル「データテーブル」のデータ（見出しを除く）を配列で一括取得する｡
    Set tbl = ws.ListObjects("データテーブル")
    dataArr = tbl.DataBodyRange.Value
    ' データを「,」で結合した文字列を作る。
    For i = LBound(dataArr, 1) To UBound(dataArr, 1)
        For j = LBound(dataArr, 2) To UBound(dataArr, 2)
            If dataStr <> "" Then
                dataStr = dataStr & ","
            End If
            dataStr = dataStr & dataArr(i, j)
        Next j
    Next i
    ' 最後に, MsgBox関数（情報アイコン）で「データ:(データを「,」で結合した文字列)」と表示する｡
    MsgBox "データ:" & dataStr, vbInformation
End Sub