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

يعد Excel أداة سهلة الاستخدام لمعالجة البيانات ومقارنة مصادر بيانات متعددة. عند دمجها مع VBA ، يصبح Excel أداة أكثر قوة لأتمتة المهام المرهقة والتي قد تستغرق وقتًا طويلاً للمستخدم. أحد الأمثلة على ذلك هو مقارنة قيم الخلايا عبر أعمدة متعددة . باستخدام الماكرو ، يمكن تخصيص الكود للبحث عن قيم محددة بترتيب تصاعدي أو تنازلي عبر الأعمدة . بمجرد تطابق المعايير التي يحددها المستخدم مع الخلايا ذات الصلة ، يمكن إما تمييز أو حذف حسب حاجة المستخدم في برنامج المكتب هذا.

القضية

لدي عمودين A و B

يحتوي على العناصر التي تم تسعيرها

B تحتوي على أسعار العناصر (بدون علامة الدولار)

هل من الممكن أن يكون هناك ماكرو ينزل في العمود لمقارنة أسعار العنصر نفسه في العمود A وحذف أقل سعر؟

مثال:

 ما لدي: سيارة 100 سيارة 200 سيارة 300 قارب 50 قارب 60 قارب 500

 ما أريد: سيارة 300 قارب 500

القائمة أطول بكثير من هذا .....

حل

سيحذف الصف المكرر (عندما يكون العنصر والسعر متماثلين) وسيحذف الأسعار المنخفضة ...

 إذا كان ActiveSheet.AutoFilterMode ثم Cells.Select Selection.AutoFilter End If Cells.Select Selection.Sort _ Key1: = Range ("a2")، Order1: = xlAscending، _ Key2: = Range ("b2")، Order2: = xlDescending ، _ Header: = xlYes، OrderCustom: = 1، _ MatchCase: = False، Orientation: = xlTopToBottom، _ DataOption1: = xlSortNormal، _ DataOption2: = xlSortNormal = 2 Do While (Cells (lrow، 1) ") If خلايا (lrow ، 1) = خلايا (lrow + 1 ، 1) ثم صفوف (lrow + 1). حذف آخر lrow = lrow + 1 End If Loop