使用动态 .ListFillRange 填充 ComboBox答案

【问题标题】：Populate ComboBox with dynamic .ListFillRange使用动态 .ListFillRange 填充 ComboBox
【发布时间】：2019-03-23 20:09:38
【问题描述】：

我在尝试使用另一个工作簿的动态范围填充工作表（而不是用户表单）中的组合框时遇到了很多麻烦。我终于通过将范围从另一个工作簿复制并粘贴到此工作表然后使用 .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

【问题讨论】：

标签： excel vba combobox range

【解决方案1】：

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

【讨论】：

太棒了！我的问题的第二部分怎么样？
Part2 听起来你想要一个列表框而不是组合框？
好吧，我想要一个下拉列表而不是列表框，因为列表每周都会增长，所以组合框似乎是我唯一的选择。