范围与xldown细胞

嘿，我有这部分代码范围与xldown细胞

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

但犯规似乎选择好的范围谢谢

怎么样：'set rng = activesheet.usedrange.cells' – Sam

为什么选择这个范围？你想执行操作吗？我可以告诉你如何选择这个范围，但你应该避免使用。如果可能的话，如果你可以启发我为什么你选择这个范围我可能会更好地帮助你。 – pegicity

不知道这是否有助于因为我不确定我是否正确地记得结束，但它并没有出现你正在使用正确的语法设置RNG声明...试试这个：

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

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

2014-02-25 18:30:03 MattB

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

Sub getRange() 


Dim rng As Range 

Set rng = Range("A2:BY2") 

rng.Select 

End Sub

2014-02-25 19:40:59 pegicity

回答