Excel VBA：如何按列名选择表格DataBodyRange的指定列范围

核心实现代码 #

要精准获取MyTable中C10至C16的DataBodyRange，以及单独的C20列数据区域，需先定位表格的ListObject对象，再通过ListColumns或列索引指定目标范围，以下是可行写法：

Sub ProcessTableColumns()
    Dim tbl As ListObject
    Dim subTable1 As Range ' C10-C16的数据区域
    Dim subTable2 As Range ' C20的数据区域
    Dim i As Long
    Dim computedValue As Variant
    
    ' 替换为实际工作表名称
    Set tbl = ThisWorkbook.Worksheets("Sheet1").ListObjects("MyTable")
    
    ' 方式1：针对连续列，直接通过列索引截取（最简洁）
    Set subTable1 = tbl.DataBodyRange.Columns("10:16")
    
    ' 方式2：非连续列时，用Union合并单个列的DataBodyRange
    ' Set subTable1 = tbl.ListColumns("C10").DataBodyRange
    ' Set subTable1 = Union(subTable1, tbl.ListColumns("C11").DataBodyRange)
    ' ...依次合并到C16
    
    ' 获取C20列的数据区域
    Set subTable2 = tbl.ListColumns("C20").DataBodyRange
    
    ' 校验行数一致性（可选）
    If subTable1.Rows.Count <> subTable2.Rows.Count Then
        MsgBox "数据区域行数不匹配"
        Exit Sub
    End If
    
    ' 批量赋值逻辑
    For i = 1 To subTable1.Rows.Count
        computedValue = subTable2.Cells(i, 1).Value * 2
        subTable1.Rows(i).Value = computedValue
    Next i
End Sub

原写法失败的原因 #

1. Range("MyTable[C10]:MyTable[C16]").DataBodyRange：结构化引用的范围包含表头，而DataBodyRange仅属于ListColumn对象，直接调用会报错。
2. ListObject("MyTable").Range("[C10]:[C16]")：Range方法无法识别单独的[列名]，必须结合表格前缀的完整结构化引用。
3. DataBodyRange.Range("[C10]:[C16]")：DataBodyRange是纯数据区域，无表头，无法识别列名形式的结构化引用。

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