Note: The other languages of the website are Google-translated. Back to English

كيف تسلسل القيم الفريدة في Excel؟

إذا كانت لدي قائمة طويلة من القيم التي تم ملؤها ببعض البيانات المكررة ، فأنا الآن أرغب في العثور على القيم الفريدة فقط ثم تجميعها في خلية واحدة. كيف يمكنني التعامل مع هذه المشكلة بسرعة وسهولة في Excel؟

ابحث عن قيم فريدة في عمود وربطها في خلية واحدة برمز VBA

ابحث عن قيم فريدة في عمود وقم بربطها في خلية واحدة باستخدام Kutools for Excel

سرد القيم الفريدة وسلسلة القيم المقابلة باستخدام كود VBA

سرد القيم الفريدة وسلسلة القيم المقابلة مع كوتولس ل إكسيل


السهم الأزرق الحق فقاعة ابحث عن قيم فريدة في عمود وربطها في خلية واحدة برمز VBA

ما يلي وظيفة تعريف المستخدم يمكن أن تساعدك في تجميع القيم الفريدة فقط في خلية واحدة من القائمة ، يرجى القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: ربط القيم الفريدة في خلية واحدة:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. ثم عد إلى ورقة العمل الخاصة بك ، وأدخل هذه الصيغة: = ConcatUniq (A1: A17، "،") في خلية فارغة حيث تريد إخراج النتيجة المتسلسلة ، واضغط على أدخل مفتاح للحصول على النتيجة المتسلسلة الفريدة ، انظر لقطة الشاشة:

uniques سلسلة doc 1

ملاحظة: في الصيغة أعلاه ، A1: A17 هو نطاق الخلايا الذي تريد ربطه ، والفاصلة ","هو الفاصل الذي تحتاجه لفصل القيم المجمعة ، يمكنك تغييرها حسب حاجتك.


السهم الأزرق الحق فقاعة ابحث عن قيم فريدة في عمود وقم بربطها في خلية واحدة باستخدام Kutools for Excel

إذا لم تكن على دراية برمز VBA ، كوتولس ل إكسيل يمكنك أيضًا مساعدتك ، يمكنك الجمع بين ملفات حدد الخلايا الفريدة والمكررة و دمج المرافق لتحقيق النتيجة التي تحتاجها.

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن! )

1. حدد قائمة الخلايا التي تريد دمج القيم الفريدة فقط.

2. انقر كوتولس > اختار > حدد الخلايا الفريدة والمكررة، انظر لقطة الشاشة:

3. في حدد الخلايا الفريدة والمكررة مربع الحوار، حدد كل فريد (بما في ذلك 1 st مكررة) الخيار تحت قاعدة القسم ، انظر لقطة الشاشة:

نصائح: إذا كنت ترغب في دمج القيم الفريدة باستثناء الظهور الأول المكرر ، فحدد قيم فريدة فقط الخيار.

uniques سلسلة doc 3

4. ثم اضغط OK زر ، وتم تحديد القيم الفريدة فقط ، ثم اضغط CTRL + C لنسخها ولصقها في مكان محدد بالضغط على CTRL + V، انظر لقطة الشاشة:

uniques سلسلة doc 4

5. حدد الخلايا الفريدة التي تم لصقها ، ثم انقر فوق كوتولس > دمج وتقسيمادمج الصفوف أو الأعمدة أو الخلايا دون فقد البيانات، انظر لقطة الشاشة:

6. في ادمج الأعمدة أو الصفوف مربع الحوار، اختر اجمع في خلية واحدة تحت لدمج الخلايا المحددة وفقًا للخيارات التالية، ثم حدد فاصلًا لبياناتك المدمجة ، انظر لقطة الشاشة:

uniques سلسلة doc 6

7. ثم اضغط Ok or قم بالمشاركة زر ، تم تجميع القيم الفريدة المستخرجة في خلية واحدة كما هو موضح في لقطة الشاشة التالية:

uniques سلسلة doc 7

تحميل مجاني Kutools لبرنامج Excel الآن!


السهم الأزرق الحق فقاعة سرد القيم الفريدة وسلسلة القيم المقابلة باستخدام كود VBA

في حالة أخرى ، لديك نطاق من البيانات يتضمن عمودين ، والآن ، تريد سرد القيم الفريدة فقط وربط القيم المقابلة لها في عمود آخر للحصول على النتيجة التالية ، هل لديك أي طرق جيدة لإنهاء هذه المهمة في Excel؟

uniques سلسلة doc 8

هنا ، يمكنك تطبيق كود فبا التالي للتعامل مع هذه الوظيفة ، يرجى القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

رمز فبا: سرد القيم الفريدة وسلسلة البيانات المقابلة

Sub test()
'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. ثم اضغط F5 المفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد ربطه بناءً على القيم الفريدة ، انظر الصورة:

uniques سلسلة doc 9

4. انقر OK، تم استخراج القيم الفريدة وتم تجميع القيم المقابلة لها في عمود آخر معًا في ورقة عمل جديدة.

ملاحظة: في الكود أعلاه ، يمكنك تغيير الفاصلة الحمراء xArr (xDic.Item (xArr (I، 1))، 2) = xArr (xDic.Item (xArr (I، 1))، 2) & ",& xArr (I، 2) في هذا البرنامج النصي إلى أي محددات أخرى تريدها لفصل البيانات المدمجة.


السهم الأزرق الحق فقاعة سرد القيم الفريدة وسلسلة القيم المقابلة مع كوتولس ل إكسيل

إذا كان لديك كوتولس ل إكسيل، بما لديها الجمع بين الصفوف المتقدمة ميزة ، يمكنك حل هذه المشكلة بسرعة وسهولة دون أي كود.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن! )

1. أولاً ، يجب عليك عمل نسخة من بياناتك الأصلية إذا كنت تريد الاحتفاظ بالبيانات الأصلية. ثم حدد نطاق البيانات الذي تريد ربطه بناءً على القيم الفريدة.

2. ثم اضغط كوتولس > دمج وتقسيم > الجمع بين الصفوف المتقدمة، انظر لقطة الشاشة:

3. في الجمع بين الصفوف المتقدمة في مربع الحوار ، انقر فوق اسم العمود الذي تريد سرد القيم الفريدة فقط ، وانقر فوق المفتاح الأساسي، انظر لقطة الشاشة:

uniques سلسلة doc 11

4. ثم انقر فوق اسم عمود آخر تريد ربطه ، وانقر فوق دمج، واختر محددًا واحدًا لفصل البيانات المجمعة ، انظر لقطة الشاشة:

uniques سلسلة doc 12

5. ثم انقر فوق Ok الزر ، تم ربط القيم بناءً على القيم الفريدة لعمود آخر كما هو موضح في لقطة الشاشة التالية:

uniques سلسلة doc 13

تحميل مجاني Kutools لبرنامج Excel الآن!


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (3)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! وظيفة رائعة وبسيطة تعمل بشكل مثالي بالنسبة لي! https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كنت أستخدم وظيفة VBA بنجاح ولكن حدث خطأ ما - لا أملك سوى #VALUE! عاد الخطأ الآن في الأماكن التي كان يعمل فيها سابقًا. لقد قمت بتمشيط بياناتي بحثًا عن الأخطاء وحاولت إزالة وحدة VBA وإعادة إنشائها ، وإعادة تسمية الوظيفة ، لا شيء يبدو أنه يعمل. سيكون موضع تقدير أي مساعدة ، شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مقالة ممتازة!
عندي سؤال.
كيف يمكن حذف الفراغات من البداية والنهاية لتجنب التكرارات (التي تسببها المسافات) في وظيفة ConcatUniq؟
شكرا جزيلا!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL