具有动态.ListFillRange的组合框

Question

我尝试用另一个工作簿中的动态范围填充工作表（而不是用户窗体）中的组合框时遇到很多麻烦。我终于通过将范围从另一个工作簿复制并粘贴到该工作表，然后使用.ListFillRange来填充它，但是，我似乎无法弄清楚如何将此.ListFillRange编码为动态的。我的问题的第二部分是-是否可以从组合框的第一行开始填充组合框？我不需要或不需要顶部的空白用户输入行。

这是我所拥有的：

ActiveSheet.Shapes("ComboBox1").Select
With Selection
    .ListFillRange = "ReprintOld!$U$2:$U$20"
End With

但是我想要这样的东西：

ActiveSheet.Shapes("ComboBox1").Select
With Selection
    .ListFillRange = "ReprintOld!$U$2:End(xlDown)"
End With

Answer 1

ActiveSheet.Shapes("ComboBox1").Select
With Selection
    .ListFillRange = "ReprintOld!$U$2:$U$" & sheets("ReprintOld").range("U2").End(xlDown).Row
End With