使用xldown到单元格的范围

Question

嘿，我有这部分代码

Range("A2:BY2").Select
Range(Selection, Selection.End(xlDown)).Select

我想转换为单元格以更快地使用我的代码 我试过这个

With Worksheets("BLOTTER")
    Set rng = .Range(.Cells(1, 2), .Cells(77, 2).End(xlDown))
End With

但似乎没有选择好的范围 谢谢

Answer 1

不确定这是否会有所帮助，因为我不确定我是否正确地记住了结尾，但是看起来你没有在set rng语句中使用正确的语法...试试这个：

Set rng = .Range(.Cells(1, 2).Address & ":" & .Cells(77, 2).End(xlDown).Address)

如果我正确记住，则需要将范围设置为字符串，或者至少我总是这样做，并且.Address属性返回您引用的单元格的字符串名称，例如.Cells（1,2）。地址返回“$ A $ 2”。

Answer 2

这将选择您想要的范围，但应避免使用.Select。你为什么要选择这个范围？复制/粘贴？格式化？您无需为任何这些操作选择范围。

Sub getRange()


Dim rng As Range

Set rng = Range("A2:BY2")

rng.Select

End Sub