ข้อมูลซ้ำกันใน ComboBox

[yodpao.b]

ข้อมูลซ้ำกันใน ComboBox

ต้องการ นำเข้าข้อมูลที่ไม่ซ้ำกัน

สิ่งที่ทำ
เปลี่ยนเส้นทางข้อมูลนำเข้ามาไว้ในComboBox01
แต่เนื่องจากเส้นทางใหม่ที่อยู่ในหน้า data มีข้อมูลซ้ำกัน
ไม่ได้เรียงลำดับเพราะข้อมูลถูกนำเข้ามาเรื่อย

test1.JPG

Code: Select all

j = 0
Do While Not IsEmpty(Sheet15.Cells(4 + j, 2).Value)
    ComboBox01.AddItem Sheet15.Cells(4 + j, 2).Text
    j = j + 1
Loop

code นี้ผลที่ได้รูปล่างฝั่งซ้ายครับ
ที่ต้องการอยู่ฝ้่งขวา

test2.JPG

[logic]

ลองแบบนี้ครับ

Code: Select all

j = 0
Do While Not IsEmpty(Sheet15.Cells(4 + j, 2).Value)
    If Application.CountIf(Sheet15.Cells(4, 2).Resize(j + 1, 1), _
        Sheet15.Cells(4 + j, 2).Value) = 1 Then
        ComboBox01.AddItem Sheet15.Cells(4 + j, 2).Text
    End If
    j = j + 1
Loop