求从动态Table01读取数据并赋值的有效VBA代码

你之前写的代码存在两处错误，导致无法正常运行：

• 错误1：B_List_Only被声明为String类型，却用Set关键字赋值——Set仅用于给对象类型变量赋值，普通数据类型（字符串、数值等）直接赋值即可，不需要Set。
• 错误2：代码完全没有涉及动态表格Table01的读取逻辑，只是尝试给变量赋值固定数字，和需求不匹配。

以下是针对Excel动态表格（ListObject）的读取赋值示例代码：

基础读取示例（单单元格） #

' 根据表格中实际数据类型声明变量，比如文本用String，数值用Integer/Double
Dim B_List_Only As String
' 读取Table01中第二列、第一行数据（假设表头为第一行，数据从第二行开始）
B_List_Only = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table01").ListColumns(2).DataBodyRange(1).Value

批量读取示例（整列数据到数组） #

如果需要读取整列数据，可以直接存入数组提高效率：

Dim arrTableData As Variant
' 读取Table01第一列的所有数据
arrTableData = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table01").ListColumns(1).DataBodyRange.Value

关键注意事项 #

• 引用动态表格时要指定所属工作表（比如示例中的Sheet1），避免因当前工作表切换导致报错。
• 变量数据类型要和表格中对应单元格的数据类型匹配，比如表格里是数字就用Integer或Double，不要用String。
• 若表格为空（无数据行），DataBodyRange会返回Nothing，建议先判断是否存在数据再读取。

内容的提问来源于stack exchange，提问作者Kaushik