انتقل إلى المحتوى الرئيسي

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

هناك قائمتان في ورقة العمل الخاصة بك ، وبعض القيم الموجودة في القوائم مكررة ، وتريد دمج هاتين القائمتين وترك القيم الفريدة فقط ، كما هو موضح في لقطات الشاشة أدناه ، كيف يمكنك القيام بذلك؟

ادمج القوائم بدون التكرارات باستخدام إزالة التكرارات في Excel

دمج القوائم بدون نسخ مكررة باستخدام VBA

الجمع بين القوائم دون التكرارات مع كوتولس ل إكسيل


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

لدمج قائمتين وإزالة القيم المكررة في Excel ، يمكنك القيام بما يلي:

1. انسخ إحدى القائمتين والصقها في أسفل القائمة الأخرى ، انظر لقطة الشاشة:

2. حدد القائمة وانقر البيانات > إزالة التكرارات، انظر لقطة الشاشة:


3. في ال إزالة التكرارات مربع الحوار ، إذا كان العمود الخاص بك لا يحتوي على رأس ، فقم بإلغاء التحديد بياناتي لها رؤوس، ثم انقر فوق OK. انظر لقطة الشاشة:


4. ثم يظهر مربع حوار على الشاشة لإخبارك بأنه تم حذف التكرارات ، انقر فوق OK. انظر لقطة الشاشة:


تستطيع أن ترى النتيجة:



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

في Excel ، يمكن أن يساعدك VBA أيضًا في دمج القائمتين بدون تكرارات.

1. معلق ALT زر واضغط F11 على لوحة المفاتيح لفتح ملف Microsoft Visual Basic للتطبيق نافذة.

2. انقر إدراج > وحدة، وانسخ VBA في الوحدة النمطية.

فبا: دمج القوائم بدون تكرارات

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

 

3. انقر يجري زر أو اضغط F5 لتشغيل VBA.

4. يتم عرض مربع حوار على الشاشة ، ويمكنك تحديد النطاق الذي تريد دمجه. انظر لقطة الشاشة:


5. انقر OK، ثم انبثق مربع حوار آخر لتحديد خلية لإخراج النتيجة المدمجة. انظر لقطة الشاشة:


6. انقر OK. يمكنك أن ترى تم دمج القوائم.


تلميح: لا يمكن للنتيجة حجز تنسيق الخلايا بعد تشغيل VBA أعلاه.


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

مع التثبيت كوتولس ل إكسيل، يمكنك استخدام ال حدد التكرارات والخلايا الفريدة وظيفة لحل المشكلة التي تجمع بين قائمتين دون التكرارات.

كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن

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


2. في ال حدد التكرارات والخلايا الفريدة الحوار ، تحقق كل الفريد (بما في ذلك النسخ المكررة الأولى)، اضغط هنا Ok.


3. ثم ينبثق مربع حوار لإخبارك بعدد القيم الفريدة التي تم تحديدها ، انقر فوق OK و إلغاء لإغلاق مربعي الحوار. انظر لقطة الشاشة:


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


انقر هنا لمعرفة المزيد حول تحديد التكرارات والخلايا الفريدة.


مقالات ذات صلة:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations