VBA 代码：将表格内容赋予变量

可以使用以下 VBA 代码将表格内容赋予变量：

Sub AssignTableContentToVariable()

    Dim tbl As ListObject
    Set tbl = Worksheets('Sheet1').ListObjects('Table1') '指定表格的工作表和表格名称

    Dim i As Integer
    Dim j As Integer
    Dim varArray() As Variant
    varArray = tbl.DataBodyRange.Value '将表格数据存储为数组

    For i = 1 To UBound(varArray, 1)
        For j = 1 To UBound(varArray, 2)
            Dim cellValue As Variant
            cellValue = varArray(i, j)
            '在此处使用变量 cellValue
        Next j
    Next i
    
End Sub

该代码首先指定要处理的表格，然后将表格数据存储为数组。然后使用循环遍历数组中的每个单元格，并将其赋予变量 cellValue。您可以在循环中使用此变量，例如将其打印到 Immediate 窗口：

Debug.Print cellValue

请注意，此代码假定表格具有名称'Table1'，并且在名为'Sheet1' 的工作表上。您需要根据实际情况更改这些值。