如何选择所有值的范围，直到第3行下的末尾？

Question

Set Data = range(Cells(3, 1), .End(xlDown).End(xlToRight)).Select

Answer 1

dim Data as range

with ActiveSheet.Cells(3, 1)
    Set Data = range(.End(xlToRight), .End(xlDown))
    Data.Select
end with