معادلة جلب الأسماء من ثلاثة صفحات بدون تكرار

[مهند محسن]

السلام عليكم اساتذتى الكرام أرجو التعطف والتكرم على مساعدتى فى ايجاد معادلة لجلب جميع الأسماء من ثلاثة صفحات(Bonus,Shopping,Excursion) بالملف بدون تكرار ووضعهم بصفحة Total ولكم جزيل الشكر وبارك الله فيكم جميعا

Total Comm October 2021.xlsm

[محي الدين ابو البشر]

(كود) لعله يكون المطلوب

Sub test()
    d = Split(Join(Application.Transpose(Sheets("Excursion").Range(Sheets("Excursion").Range("C2"), Sheets("Excursion").Range("C2").End(xlDown))), "#") & "#" _
    & Join(Application.Transpose(Sheets("Shopping").Range(Sheets("Shopping").Range("C4"), Sheets("Shopping").Range("C4").End(xlDown))), "#") & "#" _
    & Join(Application.Transpose(Sheets("Bonus").Range(Sheets("Bonus").Range("B4"), Sheets("Bonus").Range("B4").End(xlDown))), "#"), "#")
    With CreateObject("scripting.dictionary")
        For i = 0 To UBound(d)
            If Not .exists(d(i)) Then
                .Add d(i), .Count + 1
            End If
        Next
     Sheets("Total").Cells(2, 3).Resize(.Count) = Application.Transpose(.keys)
    End With
End Sub

 

[مهند محسن]

أحسنت استاذ محي وهو بالفعل المطلوب أكرمك الله وزادك الله من فضله وأحسن الله اليك وبارك الله فى اولادك