将工作表数据插入到用户表单组合框中,没有重复 - Excel Vba

谢赫

我正在制作一个带有两个组合框的 excel 用户表单。一个组合框从名为“CompaniesandSubsidiaries”的 sheet3(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 动态获取第一个组合框的数据作为公司名称(没有重复),然后下一个组合框将启用,它将显示与公司名称对应的提供商列表。

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

奇瑞梅文康

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

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

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章