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 函数输出变量值。

您可以根据实际需要修改表格名称、行号和列名来获取所需内容。