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

Excel VBA-使用动态.ListFillRange填充组合框

1 个答案: