Excel VBA技术问询：如何选择Data Table单行及多行？

你当前的代码可以正常选中表格MAIN_DATA的第3行：

ActiveSheet.ListObjects("MAIN_DATA").ListRows(3).DataBodyRange.Select

以下是几种选择多行的常用实现方式：

1. 选择连续多行 #

如果需要选中一段连续的行（比如第2到第5行），可以用两种方式实现：

' 方法1：通过DataBodyRange的Rows属性指定范围
ActiveSheet.ListObjects("MAIN_DATA").DataBodyRange.Rows("2:5").Select

' 方法2：直接切片ListRows集合（仅支持Excel 2019及更高版本）
ActiveSheet.ListObjects("MAIN_DATA").ListRows("2:5").DataBodyRange.Select

2. 选择不连续多行 #

如果要选中分散的行（比如第1、3、5行），可以借助Union方法合并多个行范围：

Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("MAIN_DATA")

' 先选中第一行，再合并其他目标行
tbl.ListRows(1).DataBodyRange.Select
Union(Selection, tbl.ListRows(3).DataBodyRange, tbl.ListRows(5).DataBodyRange).Select

3. 基于条件筛选选择多行 #

如果需要根据单元格值筛选并选中行（比如选中Status列值为Completed的所有行）：

Dim tbl As ListObject
Dim targetRng As Range
Dim currentRow As ListRow

Set tbl = ActiveSheet.ListObjects("MAIN_DATA")
For Each currentRow In tbl.ListRows
    ' 检查当前行的Status列值
    If currentRow.Range.Cells(1, tbl.ListColumns("Status").Index).Value = "Completed" Then
        If targetRng Is Nothing Then
            Set targetRng = currentRow.DataBodyRange
        Else
            Set targetRng = Union(targetRng, currentRow.DataBodyRange)
        End If
    End If
Next currentRow

' 最后选中筛选出的范围
If Not targetRng Is Nothing Then targetRng.Select

额外建议 #

• 尽量避免使用Select操作，直接对目标范围进行赋值、格式设置等操作，代码会更高效且更稳定。
• 建议将表格对象赋值给变量（如示例中的tbl），让代码更易读、易维护。

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