在用户表单组合框中插入工作表数据，无重复-Excel Vba

Question

我正在制作一个带有两个组合框的excel用户表单。一个combox从名为“CompaniesandSubsidiaries”的sheet 3(A列)中检索数据。然后在第一个组合框的基础上，第二个组合框检索子类别数据。但问题是A列有重复数据。我附上了一张图片。

我想说的是:

Private Sub Combobox1_DropButtonClick()

    Dim rng As Range

    Dim ws As Worksheet

    Set ws = Worksheets("CompaniesandSubsidiaries")

    For Each rng In ws.Range("Companies")

        Me.ComboBox1.AddItem rng.Value

    Next rng

End Sub

Private Sub ComboBox2_DropButtonClick()

    Dim rng As Range

    Dim ws As Worksheet

    Set ws = Worksheets("CompaniesandSubsidiaries")

    For Each rng In ws.Range("Providers")

        Me.ComboBox2.AddItem rng.Value

    Next rng
End Sub

我分别为“A 列和 B”命名的公司和提供商制作了一个公式。但它重复了这些价值观。我不要。

我想要的是从sheet3中动态获取第一个组合框的数据作为公司名称(没有重复)，然后下一个组合框将启用，它将显示与公司名称对应的提供商列表。

请提供简单易懂的代码。谢谢

Answer 1

您可以在ComboBox中填充重复数据之前删除重复数据。删除重复值的代码如下：

ActiveSheet.Range("Companies").RemoveDuplicates Columns:=1, Header:=xlNo

您还可以手动将公司数据存储到数组变量中，迭代到该数组上的每个项目以检查它是否重复。这里有一个链接视频，演示如何评估数组上的每个数据并创建不同/唯一的值。https://www.facebook.com/excelfuneasy/videos/693150624214021/