将表单数据插入到不重复的用户表单combobox中 – Excel Vba

我正在用两个combobox制作一个excel用户表单。 一个combox从sheet3（A列）中检索名为“CompaniesandSubsidiaries”的数据。 然后在第一个combobox的基础上，第二个combobox检索子类数据。 但问题是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栏”提名公司和提供者。 但它重复了价值。 我不想要。

我想要的是从sheet3dynamic获取第一个combobox的数据作为公司名称（没有重复），然后下一个combobox将启用，它将显示与公司名称相对应的提供者列表。

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

Answer 1

您可以删除重复的数据，然后将其填充ComboBox下面的代码以删除重复的值：

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

您也可以手动将公司数据存储到数组variables，迭代到该数组上的每个项目以检查它是否重复。 这里是一个链接video，演示如何评估数组上的每个数据，并创造独特/独特的价值。 https://www.facebook.com/excelfuneasy/videos/693150624214021/