使用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”的工作表上。您需要根据实际情况更改这些值。