使用vba将指定位置的表格内容赋予变量

以下是使用VBA将指定位置的表格内容赋予变量的示例代码：

Sub assignTableValueToVariable()

Dim tbl As ListObject
Dim tblRow As ListRow
Dim tblCol As Range
Dim varValue As Variant

'指定表格名称和位置
Set tbl = Worksheets("Sheet1").ListObjects("Table1")
Set tblRow = tbl.ListRows(2)
Set tblCol = tbl.ListColumns("Column1").DataBodyRange

'将表格内容赋值给变量
varValue = tblRow.Range(tblCol.Address).Value

'输出变量值
MsgBox "The value is " & varValue

End Sub

在这个示例中，我们指定了一个名为Table1的表格，并将第2行和名为Column1的列（DataBodyRange）的内容赋值给变量varValue。最后，我们使用MsgBox函数输出变量值。