중복되지 않고 시트 양식 데이터를 사용자 양식 콤보 박스에 삽입하십시오 - Excel Vba

Question

두 콤보 상자로 Excelform userform을 만들고 있습니다. 하나의 combox는 "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"모두 수식을했다. 그러나 값을 반복합니다. 나는 싫어.

내가 원하는 것은 회사 이름 (중복 없음)으로 첫 번째 콤보 상자의 데이터를 시트 3에서 동적으로 가져온 다음 다음 콤보 상자를 활성화하고 회사 이름에 해당하는 공급자 목록을 표시하는 것입니다.

간단하고 이해하기 쉬운 코드를 제공해주십시오. 감사합니다

Answer 1

중복 값 제거하기 전에 중복 된 데이터를 제거 코드 아래 콤보 에 그것을 채울 수 :

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

당신은 수동으로 배열 변수에 회사에게 데이터를 저장할 수를 각 항목에 반복 해당 배열이 중복되었는지 여부를 검사합니다. 배열의 각 데이터를 평가하고 고유/고유 값을 만드는 방법을 설명하는 링크 비디오. https://www.facebook.com/excelfuneasy/videos/693150624214021/