主题：[求助]如何遍历选中行

With Tables("订单")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i as Integer = .TopPosition To .BottomPosition

            .row(i)("选中")= True               
        Next
    End If
End With