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

كيف تجد قيمًا مكررة أو فريدة في عمودين من ورقتين؟

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

قارن بين عمودين متشابهين للرأس في ورقتي انتشار مع الصيغة في Excel

قارن نطاقين في ورقتي انتشار باستخدام VBA

قارن نطاقين في ورقتي انتشار مع Kutools for Excel


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

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

1. كتابة هذه الصيغة = COUNTIF (Sheet1! $ A: $ A، A1) في خلية فارغة بجوار النطاق في الورقة 3. انظر لقطة الشاشة:

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

نصيحة:

1- يمكن لهذه الصيغة فقط مقارنة عمودين بنفس العنوان في جدولي بيانات.

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


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

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

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

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

Sub CompareRanges () 'Update 20130815 Dim WorkRng1 كنطاق ، WorkRng2 كنطاق ، Rng1 كنطاق ، Rng2 كنطاق xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("النطاق أ:" ، xTitleId ، "" ، النوع: = 8 ) قم بتعيين WorkRng2 = Application.InputBox ("النطاق ب:" ، xTitleId ، النوع: = 8) لكل Rng1 In WorkRng1 rng1Value = Rng1Value = Rng2.Value لكل Rng2 في WorkRng1 If rng2Value = Rng1.Value ثم Rng255.Interior.Color = VBA .RGB (0، 0، XNUMX) اخرج من أجل End If Next Next End Sub

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

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

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

6. انقر Ok، والقيم المكررة في كل من النطاق أ وفي النطاق ب يتم تمييزها بخلفية حمراء في النطاق أ. انظر لقطة الشاشة:

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
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,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations