كيف يمكن إزالة القيم المكررة في Excel مع الاحتفاظ بأول ظهور لكل قيمة؟
لنفترض أن لديك قائمة بقيم في ورقة عمل تحتوي على تكرارات، وتحتاج الآن إلى إزالتها مع الاحتفاظ بأول ظهور لكل قيمة. في هذه المقالة، سنعرض لك طريقتين فعّالتين لإزالة التكرارات مع الاحتفاظ بأول حالة في Excel.
إزالة التكرارات مع الاحتفاظ بأول حالة باستخدام كود VBA
إزالة التكرارات مع الاحتفاظ بأول حالة باستخدام Kutools لـ Excel
إزالة التكرارات مع الاحتفاظ بأول حالة باستخدام كود VBA
يمكنك تشغيل كود VBA أدناه لإزالة التكرارات مع الاحتفاظ بأول ظهور في العمود.
1. اضغطAlt+F11 لفتح مربع حوارMicrosoft Visual Basic for Applications.
2. في مربع حوارMicrosoft Visual Basic for Applications، انقرإدراج > وحدة نمطية (Module). ثم انسخ والصق الكود أدناه في نافذة الكود.
كود VBA: إزالة التكرارات مع الاحتفاظ بأول حالة
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub3. اضغطF5 لتشغيل الكود. في مربع الحوار المنبثقKutools for Excel، حدد النطاق الذي تريد تطبيق إزالة التكرارات عليه، ثم انقر على زرموافق. راجع لقطة الشاشة:
الآن يمكنك رؤية أن جميع الصفوف المكررة قد أُزيلت، باستثناء السجل الأول من نطاق العمود المحدد. راجع لقطة الشاشة:
إزالة التكرارات مع الاحتفاظ بأول حالة باستخدام Kutools لـ Excel
بالإضافة إلى كود VBA، يمكنك استخدام أداةتحديد الخلايا المكررة/الفريدةمن الإضافةKutools لـ Excelلإزالة التكرارات بسهولة مع الاحتفاظ بأول حالة من كل عنصر في Excel.
1. حدد النطاق الذي تريد تطبيق إزالة التكرارات عليه مع الاحتفاظ بأول حالة من كل تكرار، ثم انقرKutools > تحديد > تحديد الخلايا المكررة/الفريدة.
2. في مربع حوارتحديد الخلايا المكررة/الفريدة، اختر الخيارالقيم المكررة (باستثناء التطابق الأول)، ثم انقر على زرموافق. راجع لقطة الشاشة:
3. في مربع الحوار التاليتحديد الخلايا المكررة/الفريدة، انقرموافق.
4. الآن تم تحديد جميع العناصر المكررة باستثناء أول حالة. يرجى الضغط على مفتاحDelete لإزالة العناصر المكررة.
ملاحظة: إذا كنت تريد حذف صف مكرر بالكامل، فما عليك سوى تفعيل خيارتحديد الصف بالكاملفي مربع حوارتحديد الخلايا المكررة/الفريدة، ثم تطبيق أمرحذفمن قائمة النقر بزر الماوس الأيمن لإزالة الصف المكرر بالكامل.
إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
إزالة التكرارات مع الاحتفاظ بأول حالة باستخدام Kutools لـ Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل