Question

我有一个Excel用户表单，其中包含员工姓名的列表框。我从Excel工作表的A列中获取选项，以便它可以根据过去的条目自动完成用户表单中的条目。问题是每个员工的工作表中有多行条目，我希望下拉列表中只有一个名称。

填充列表框的代码是：

Private Sub UserForm_Initialize()
    Me.txtName.List = Worksheets("Sheet1").Range("A6:A600").Value

有办法做到这一点吗？

If ListBox1.Range.Value...?

Answer 1

以下代码使用帮助器Dictionary对象来确定是否已将项添加到ListBox，如果没有，则添加它们。它还会根据A6的起始单元格动态选择名称范围，并将电子表格向下移动到数据的第一个中断位置。如果您想忽略休息时间，请告诉我们。

我使用AddItem的{{1}}方法代替ListBox属性。

List