VBA – dynamic范围填充combobox

我有一个问题，我的ComboBox1，我想做一些隐藏的filter，使查看大量的数据更容易，我想select什么我通过combobox，其中inputselect是这个处理的数据的一部分过滤出来。

下面是一些代码，我试图写入填充combobox，但它出现了一个错误，说这是错误的使用方法。

Sub ComboBox1_DropButton_Click() Dim i As Range With Sheets("Pipe 16") Set i = .Range("G5:G" & .Range("G" & .Rows.Count).End(xlUp).Row) End With Me.ComboBox1.ListFillRange = "i" End Sub 

任何帮助赞赏。

编辑

这不能通过使用VBA在Excel ComboBox中dynamic设置ListFillRange中显示的答案来回答

Answer 1

ListFillRange接受范围的地址，而不是范围本身。

 Sub ComboBox1_DropButton_Click() Dim i As Range With Sheets("Pipe 16") Set i = .Range("G5:G" & .Range("G" & .Rows.Count).End(xlUp).Row) End With Me.ComboBox1.ListFillRange = i.Address End Sub