كيفية الجمع بين قائمتين دون التكرارات في إكسيل؟
هناك قائمتان في ورقة العمل الخاصة بك ، وبعض القيم الموجودة في القوائم مكررة ، وتريد دمج هاتين القائمتين وترك القيم الفريدة فقط ، كما هو موضح في لقطات الشاشة أدناه ، كيف يمكنك القيام بذلك؟
ادمج القوائم بدون التكرارات باستخدام إزالة التكرارات في 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. وانسخ القيم الفريدة المحددة والصقها في عمود جديد. انظر لقطة الشاشة:
انقر هنا لمعرفة المزيد حول تحديد التكرارات والخلايا الفريدة.