如何优雅获取Excel表格指定数据列的Range对象？

你可以用两种更简洁的方式实现需求，无需手动构造Range范围：

方法1：通过ListColumns直接获取（推荐） #

利用ListObject的ListColumns属性定位目标列，再直接取其DataBodyRange，代码更直观，且能关联表格的列定义（即使表格列顺序调整也能正确对应）：

Public Function GetColumn(colNum As Integer) As Range
    Set GetColumn = Sheet.ListObjects("table").ListColumns(colNum).DataBodyRange
End Function

如果需要按列名称获取，只需把colNum换成列名字符串即可，比如：

Set GetColumn = Sheet.ListObjects("table").ListColumns("订单编号").DataBodyRange

方法2：直接使用DataBodyRange的Columns属性 #

直接对表格的数据区域调用Columns属性，传入列索引即可得到对应列的Range：

Public Function GetColumn(colNum As Integer) As Range
    Set GetColumn = Sheet.ListObjects("table").DataBodyRange.Columns(colNum)
End Function

这两种方式都比你原来的代码更简洁优雅，避免了手动拼接单元格范围的冗余操作，可读性和维护性更强。

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