select隐藏表格上的数据范围，无需激活

我通过一个隐藏的工作表（“数据”）填充一个combobox列表，其中存储了一些列表。

我目前select的范围如下：

Dim arr() As Variant Worksheets("Data").Activate arr = Range("D2", Range("D2").End(xlDown).End(xlToRight)) cboBox.List = arr 

但是，这显然激活了隐藏的表单“数据”。 我怎样才能select相同的范围，而不select/显示隐藏表？

我尝试使用变体…

 arr = Sheets("Data").Range("D2", Range("D2").End(xlDown).End(xlToRight)) 

…为了避免激活工作表，但这是行不通的。

我认为这是做xlDown调用“D2”范围两次然后xlToRight但我不能确定什么是正确的语法需要。

非常感谢。

编辑：YowE3K的build议工作：

arr = Sheets("Data").Range("D2", Sheets("Data").Range("D2").End(xlDown).End(xlToRight))

Answer 1

你可以缩短到

 arr = Worksheets("Data").Range("D2").currentregion 

或者这样做

 with Worksheets("Data") arr = .Range("D2", .Range("D2").End(xlDown).End(xlToRight)) end with