كيفية إزالة الصفوف المكررة مع الاحتفاظ بالصفوف ذات التاريخ الأخير في Excel؟

لدي مجموعة من البيانات التي تحتوي على بعض القيم المكررة في العمود A ، وفي العمود B يتم ملؤها ببعض التاريخ ، الآن ، أحتاج إلى إزالة الصفوف المكررة في العمود A مع الاحتفاظ بالتاريخ الأخير من العمود المقابل B كما هو موضح في لقطة الشاشة التالية ، هل لديك أي أفكار جيدة لحل هذه المشكلة في Excel بسرعة وسهولة؟
قم بإزالة القيم المكررة واحتفظ بالتاريخ الأحدث في عمود آخر برمز VBA
قم بإزالة القيم المكررة واحتفظ بالتاريخ الأحدث في عمود آخر باستخدام Kutools for Excel
قم بإزالة القيم المكررة واحتفظ بالتاريخ الأحدث في عمود آخر برمز VBA
قد يساعدك رمز فبا التالي في إزالة الخلايا المكررة والاحتفاظ بالتاريخ الأخير من عمود آخر ، يرجى القيام بما يلي:
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ثم قم بلصق الماكرو التالي في ملف وحدة نافذة او شباك.
كود فبا: أزل القيم المكررة واحتفظ بالتاريخ الأحدث
Sub test()
'updateby Extendoffice
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count < 2) Or (xRng.Rows.Count < 2) Then
MsgBox "the used range is invalid", , "Kutools for Excel"
Exit Sub
End If
xRng.Sort key1:=xRng.Cells(1, 1), Order1:=xlAscending, key2:=xRng.Cells(1, 2), Order2:=xlDescending, Header:=xlGuess
xRng.RemoveDuplicates Columns:=1, Header:=xlGuess
End Sub
3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد استخدامه ، انظر لقطة الشاشة:
4. ثم انقر فوق OK، تمت إزالة القيم المكررة في العمود A ويتم الاحتفاظ بآخر تاريخ في العمود B حسب حاجتك. انظر لقطة الشاشة:
ملاحظة: لتطبيق الرمز أعلاه بنجاح ، يجب وضع العمود الذي يحتوي على قيم مكررة على يسار عمود التاريخ.
قم بإزالة القيم المكررة واحتفظ بالتاريخ الأحدث في عمود آخر باستخدام Kutools for Excel
إذا لم تكن معتادًا على الكود ، من فضلك لا تقلق ، الأداة القوية- الجمع بين الصفوف المتقدمة of كوتولس ل إكسيل قد تساعدك على حل هذه المهمة بسهولة.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد نطاق البيانات الذي تريد إزالة التكرارات واحتفظ بالتاريخ الأحدث من عمود آخر.
2. ثم اضغط كوتولس > دمج وتقسيم > الجمع بين الصفوف المتقدمة، انظر لقطة الشاشة:
3. في ضم الصفوف على أساس العمود في مربع الحوار ، انقر فوق اسم العمود الذي تريد إزالة القيم المكررة ، ثم انقر فوق المفتاح الأساسي، انظر لقطة الشاشة:
4. استمر في النقر فوق اسم عمود آخر تريد الاحتفاظ به في التاريخ الأحدث ، ثم انقر فوق احسب الشحن > اكثر شئ، انظر لقطة الشاشة:
5. ثم انقر فوق Ok لإغلاق مربع الحوار هذا ، والآن ، يمكنك رؤية الأسماء المكررة في العمود A قد تمت إزالتها والاحتفاظ فقط بالتاريخ الأخير في العمود المقابل B ، انظر لقطة الشاشة:
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
عرض توضيحي: قم بإزالة القيم المكررة واحتفظ بالتاريخ الأحدث في عمود آخر باستخدام Kutools for Excel
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
