السلام عليكم إخواني الكرام

أقدم لكم دالة معرفة مفيدة جداً لكم إن شاء العلي القدير ، وتقوم بالدالة باستخراج القيم الغير مكررة (أي القيم الفريدة) من نطاق محدد ، ويمكنك استخدامها لتعبئة الكومبوبوكس

بفرض أن لديك بيانات في العمود الأول بهذا الشكل


وتريد تعبئة الكومبوبوكس بحيث تتجنب تكرار البيانات بدون داعي ، لتكون الكومبوبوكس بهذا الشكل


خطوات العمل بسيطة وسهلة إن شاء الله
أدرج موديول جديد وضع فيه الكود بهذا الشكل

Sub ShowForm()
    UserForm1.Show
End Sub

Public Function UniqueListFromRange(rgInput As Range) As Variant
    Dim d           As Object
    Dim dataSet     As Variant
    Dim rgArea      As Range
    Dim x           As Long
    Dim y           As Long

    Set d = CreateObject("Scripting.Dictionary")

    For Each rgArea In rgInput.Areas
        dataSet = rgArea.Value
        If IsArray(dataSet) Then
            For x = 1 To UBound(dataSet)
                For y = 1 To UBound(dataSet, 2)
                    If Len(dataSet(x, y)) <> 0 Then d(dataSet(x, y)) = Empty
                Next y
            Next x
        Else
            d(dataSet) = Empty
        End If
    Next rgArea

    UniqueListFromRange = d.Keys
End Function

ثم أدرج فورم وضع عليه أداة الكومبوبوكس ComboBox1 ..


وأخيراً إليكم الملف المرفق

رابط الملف من هنا

أرجو أن يكون الموضوع مفيد لكم ، وتقبلوا وافر تقديري واحترامي

إعداد وتقديم / ياسر خليل أبو البراء