نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية العثور على قيم مكررة أو فريدة في عمودين من ورقتين؟

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

مقارنة عمودين الرأس نفسه في صفحتين انتشار مع الصيغة في إكسيل

مقارنة نطاقين في اثنين من صحائف انتشار مع فبا

مقارنة نطاقين في اثنين من صحائف انتشار مع كوتولس ل إكسيل

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الفقاعة اليمنى مقارنة عمودين الرأس نفسه في صفحتين انتشار مع الصيغة في إكسيل


باستخدام الصيغة في إكسيل، يمكنك مقارنة عمودين من رؤوس العناوين نفسها كما هو موضح أدناه على أوراق مختلفة والعثور على القيم المكررة والفريدة:

1. كتابة هذه الصيغة = كونتيف (شيتسنومك! $ A: $ A، أكسنومك) في خلية فارغة والتي هي متاخمة لمجموعة في ورقة شنومكس. انظر لقطة الشاشة:

2. صحافة أدخل زر على لوحة المفاتيح، ثم اسحب مقبض التعبئة لملء النطاق الذي تريد مقارنته مع النطاق في ورقة شنومكس. (الرقم صفر يعني القيم المكررة في نطاقين، و نومنوم تعني القيم الفريدة في شيتنومك، ولكن ليس في شيتنومك)

نصائح:

1.This الصيغة يمكن فقط مقارنة عمودين مع نفس الرأس في جدولين.

2. إذا كنت تريد العثور على القيم الفريدة في شيتنومك، ولكن ليس في شيتنومك، تحتاج إلى إدخال الصيغة أعلاه =كونتيف (شيتسنومك! $ A: $ A، أكسنومك) في شيتنومك.


السهم الأزرق الفقاعة اليمنى مقارنة نطاقين في اثنين من صحائف انتشار مع فبا

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

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

فبا: قارن بين نطاقين في جدولي بيانات

سوب كومبارانجيرانجيس () 'تحديث شنومكس ديم وركرنغسنومكس كمجال، ورنغسنومكس كمجال، رنغسنومكس كمجال رنغسنومك كمجال زتيتليد = "كوتولزفوريكسيل" تعيين وركرنغسنومك = Application.InputBox ("النطاق A:"، زتيتليد، ""، تايب: = شنومك ) تعيين وركرنغسنومك = application.InputBox ("المدى B:"، زتيتليد، اكتب: = شنومكس) لكل رنغسنومك في وركرنغسنومكس رنغسنومكسفالو = Rng20130815.Value لكل رنغسنومك في وركرنغسنومكس إذا رنغسنومكسفالو = Rng1.Value ثم Rng2.Interior.Color = فبا .RGB (شنومكس، شنومكس، شنومكس) الخروج لإنهاء إذا التالي التالي نهاية الفرعية

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

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

5. انقر Ok ويتم عرض مربع حوار آخر لتحديد النطاق الثاني. انظر لقطة الشاشة:

6. انقر Ok، ويتم تمييز القيم المكررة في كل من النطاق A وفي النطاق B مع الخلفية الحمراء في النطاق A. انظر الصورة:

نصائح: باستخدام فبا هذا، يمكنك مقارنة نطاقين في كل من أوراق العمل نفسها وأوراق العمل المختلفة.


السهم الأزرق الفقاعة اليمنى مقارنة نطاقين في اثنين من صحائف انتشار مع كوتولس ل إكسيل

إذا الصيغة ليست مريحة بالنسبة لك، و فبا من الصعب بالنسبة لك، هل يمكن أن يكون محاولة على كوتولس ل إكسيل's مقارنة النطاقات وظيفة.

كوتولس ل إكسيل يتضمن أكثر من أدوات إكسوم إكسيل مفيد. مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. احصل عليه الآن

الرجاء تطبيق مقارنة النطاقات وظيفة عن طريق النقر Kutools > مقارنة النطاقات. انظر لقطة الشاشة:

مقارنة مع عمودين في أوراق مختلفة:

1. انقر Kutools > مقارنة النطاقات، يتم عرض مربع الحوار في الشاشة. انظر لقطة الشاشة:

2. حدد النطاقات والقواعد، قم بما يلي:

ترك قارن في نفس النطاق قم بإلغاء تحديد وحدد نطاقين بالنقر النطاق أ و النطاق B، انظر الصورة:

حدد القيم نفسها أو القيم المختلفة التي تريد البحث عنها في المربع المنسدل أسفل القواعد؛

3. انقر Ok. مربع حوار منبثق يخبرك يتم تحديد نفس القيم.

4. انقر Ok في مربع الحوار المنبثق. وتحدد القيم نفسها بين نطاقين في النطاق A.

مقارنة نطاقين في أوراق عمل الانتشار

إذا كان لديك نطاقان في جدولي بيانات كما هو موضح أدناه، وتريد مقارنتها ومعرفة القيم المختلفة، يمكنك إجراء ما يلي:

1. انقر Kutools > مقارنة النطاقات، يتم عرض مربع الحوار في الشاشة.

2. حدد النطاقات والقواعد، قم بما يلي:

يترك قارن في نفس النطاق قم بإلغاء تحديد وحدد نطاقين بالنقر النطاق أ و النطاق B;

حدد القيم المختلفة التي تريد العثور عليها في المربع المنسدل أسفل القواعد؛

تحقق من البيانات يحتوي على رؤوس in الخيارات قسم.

3. انقر Ok. مربع حوار منبثق يخبرك يتم تحديد نفس القيم.

4. انقر Ok في مربع الحوار المنبثق. يتم تحديد القيم المختلفة في النطاق A. انظر لقطة الشاشة:

إذا كنت ترغب في معرفة القيم المختلفة في المدى B من شيتشنومكس، تحتاج إلى مبادلة اثنين من النطاقات.

مقارنة النطاقات وظيفة أيضا يمكن مقارنة نطاقات في نفس الورقة. انقر هنا لمعرفة المزيد حول نطاقات المقارنة.


المقالات النسبية:


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nurul Islam Chowdhur · 1 years ago
    This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are


    • To post as a guest, your comment is unpublished.
      Chris · 1 years ago
      You need to add a second command inside the THEN statement.


      Try this;

      Sub CompareRanges()
      'Update 20130815
      Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
      xTitleId = "Enter Range for Comparison"
      Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
      Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
      For Each Rng1 In WorkRng1
      rng1Value = Rng1.Value
      For Each Rng2 In WorkRng2
      If rng1Value = Rng2.Value Then
      Rng1.Interior.Color = VBA.RGB(255, 0, 0)
      Rng2.Interior.Color = VBA.RGB(255, 0, 0)
      Exit For
      End If
      Next
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    SM3117 · 2 years ago
    Hi,morning,

    I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range.

    I have tried the following code:

    Sub Compare3()


    Dim WorkRng1 As Range
    Dim WorkRng2 As Range
    Dim Rng1 As Range
    Dim Rng2 As Range
    Dim DataRange As Range
    Dim ws As Worksheet


    xTitleId = "Buscar coincidencias"


    Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8)
    Set WorkRng2 = Range("B1" & LastRow)


    For Each Rng1 In WorkRng1
    rng1Value = Rng1.Value
    For Each ws In ActiveWorkbook.Worksheets
    For Each Rng2 In WorkRng2
    If rng1Value = Rng2.Value Then
    Rng1.Interior.Color = VBA.RGB(200, 250, 200)
    Exit For
    End If
    Next
    Next
    Next


    End Sub

    But it does not make any changes when there are matches.... Could someone help??
    Many thanks,
    Have a good day
  • To post as a guest, your comment is unpublished.
    SM3117 · 2 years ago
    Hi,

    I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range.

    I have tried the following code:

    Sub Compare3()


    Dim WorkRng1 As Range
    Dim WorkRng2 As Range
    Dim Rng1 As Range
    Dim Rng2 As Range
    Dim DataRange As Range
    Dim ws As Worksheet


    xTitleId = "Buscar coincidencias"


    Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8)
    Set WorkRng2 = Range("B1" & LastRow)


    For Each Rng1 In WorkRng1
    rng1Value = Rng1.Value
    For Each ws In ActiveWorkbook.Worksheets
    For Each Rng2 In WorkRng2
    If rng1Value = Rng2.Value Then
    Rng1.Interior.Color = VBA.RGB(200, 250, 200)
    Exit For
    End If
    Next
    Next
    Next


    End Sub

    But it does not make any changes when there are matches.... Could someone help??
    Many thanks,
    Have a good day
  • To post as a guest, your comment is unpublished.
    Neelakshi Nehru · 4 years ago
    Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
  • To post as a guest, your comment is unpublished.
    tim · 4 years ago
    how to compare datas between two different excel sheets?
  • To post as a guest, your comment is unpublished.
    Ajith Khedekar · 5 years ago
    Hi,

    How can I find out the word difference between two columns in excel
    • To post as a guest, your comment is unpublished.
      CYM · 5 years ago
      How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names?

      Thanks,