majidshamoun قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 السلام عليكم عندي جدول يحتوي على عمودين .. كيف يمكنني مقاطعة المعلومات بين العمودين واستخراج المتطابق منها في عمود ثالث وشكرا لكم مقدما ً رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 اليك هذا الملف ربما يكون المطلوب مقارنة جدولين.rar رابط هذا التعليق شارك More sharing options...
majidshamoun قام بنشر يناير 8, 2015 الكاتب مشاركة قام بنشر يناير 8, 2015 اشكرك اخي العززيز سليم .. هذا ماقصدته .. لكن هل يمكن عمل المقارنة في حال وضع اسماء بدل الارقام .. وان امكن ذلك .. اتمنى ان تساعدني في ذلك وشكرا لسعة صدرك رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 لا مانع من وضع اسماء شرط الا تكون هناك مسافات زائدة ما عدا المسافة بين كلمتين او انت بحاجة الة معادلة اخرى في حال وجود مسافات زائدة رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 اخى الفاضل بعد إذن أستاذنا الكريم أ.سليم، ولإثراء الموضوع مرفق ملف به مقارنة العمودين باستخدام الكود البرمجي ووضع المكرر في العمود الثالث تحياتي CompareA&B.rar 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 نفس الموضوع لكن بكود اقصر Sub othermethod() Dim taba As Range, tabb As Range Set ws = Sheet1 lra = ws.Cells(Rows.Count, 1).End(xlUp).Row lrb = ws.Cells(Rows.Count, 2).End(xlUp).Row Set taba = Range("a2:a" & lra): Set tabb = Range("b2:b" & lrb) Set ct = Application.WorksheetFunction i = 1 For Each x In taba If ct.CountIf(tabb, x) >= 1 Then Cells(i + 1, 4) = x: i = i + 1 End If Next End Sub 1 رابط هذا التعليق شارك More sharing options...
majidshamoun قام بنشر يناير 9, 2015 الكاتب مشاركة قام بنشر يناير 9, 2015 شكرا لكم جميعا لمساعدتي في هذا الموضوع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.