كيف يمكنك بسرعة تحديد أول ظهور فقط لكل قيمة في Excel؟
عند التعامل مع مجموعات بيانات كبيرة في Excel، من الشائع أن تحتوي القوائم على قيم مكرَّرة وفريدة معًا. قد ترغب أحيانًا في احتساب الظهور الأول لكل قيمة فقط، وتجاهل التكرارات اللاحقة باعتبارها غير فريدة. على سبيل المثال، في قائمة تتكرر فيها بعض القيم عدة مرات، قد تحتاج إلى عدٍّ يأخذ بعين الاعتبار أول ظهور لكل قيمة فقط، كما في السيناريو الموضَّح في لقطة الشاشة أدناه. يُمكِّنك هذا الأسلوب من تحديد عدد الإدخالات المميزة التي تظهر لأول مرة بسرعة، بغض النظر عن عدد مرات تكرار كل قيمة لاحقًا. كيف يمكنك تحقيق هذا المطلوب بكفاءة في Excel؟

- عدّ أول ظهور للعناصر باستخدام صيغة
- عدّ أول ظهور للعناصر باستخدام Kutools لـ Excel
- عدّ أول ظهور للعناصر باستخدام ماكرو كود VBA
عدّ أول ظهور للعناصر باستخدام صيغة
إحدى الطرق المباشرة لعدّ أول ظهور لكل قيمة هي استخدام صيغة Excel، حيث تُحدد هذه الطريقة الإدخالات التي تمثّل أول ظهورٍ لكل قيمة ضمن مجموعة البيانات، مما يمكّنك من جمعها للحصول على العدد النهائي.
السيناريو والقيمة:هذا الحل مثالي إذا كنت تعمل مع أعمدة بيانات وتحتاج إلى حل قائم على الصيغة، ديناميكي ويتجدّد تلقائيًا كلما تغيّرت بياناتك. ولا يتطلب أي إضافات أو أذونات خاصة، مما يجعله مناسبًا لمعظم المستخدمين. ومع ذلك، يشترط إضافة عمود إضافي إلى ورقة العمل الخاصة بك.
للبدء، اتبع الخطوات التالية:
1. حدد خلية فارغة بجانب أول قيمة في مجموعة البيانات الخاصة بك (على سبيل المثال، إذا كانت بياناتك في A1:A10، فاختر الخلية B1)، ثم أدخل الصيغة التالية:
=(COUNTIF($A$1:$A1,$A1)=1)+0 اضغطEnter، ثم اسحب مقبض التعبئة لأسفل على طول عمود البيانات بالكامل لتطبيق الصيغة على كل صف. ستظهر النتيجة "1" للصفوف التي تمثّل أول ظهور لتلك القيمة، و"0" في جميع الحالات الأخرى. راجع لقطات الشاشة أدناه للتوضيح:



تلميح:في هذه الصيغة، يشير$A$1 إلى أول خلية في نطاق بياناتك (غيّرها حسب الحاجة)، ويشير$A1 إلى الصف الحالي. إذا لم تبدأ بياناتك في الخلية A1، فعدّل المراجع وفقًا لذلك. ويضمن الجمع بين المراجع المطلقة والنسبية سلوك العد الصحيح عند نسخ الصيغة لأسفل.
2. لحساب العدد الإجمالي لأول الظواهر، حدد خلية فارغة أخرى (مثل الخلية الموجودة أسفل عمود الصيغة الجديد) وأدخل:
=SUM(B1:B10) اضغطEnter لإرجاع العدد. يجب أن يتطابق النطاق B1:B10 مع الخلايا التي أدخلت فيها الصيغة السابقة. عدِّل مراجع الخلايا إذا كان طول بياناتك مختلفًا أو كانت الصيغة في عمود آخر.



ملاحظات إضافية:توفر هذه الصيغة عدًّا يتجدد تلقائيًا في الوقت الفعلي عند تغيير القيم أو إضافتها أو حذفها. انتبه إلى أن نطاقات الصيغ قد تحتاج إلى التوسيع إذا تغيّر نطاق بياناتك (مثلما يحدث عند إدراج صفوف جديدة). فكّر في تحويل بياناتك إلىجدول Excelلنشر الصيغة تلقائيًا.
عدّ أول ظهور للعناصر باستخدام Kutools لـ Excel
إذا كان لديكKutools لـ Excelمثبّتًا، فيمكنك الاستفادة من أداةتحديد الخلايا المكررة/الفريدةالخاصة به لتبسيط العملية، خاصة عند التعامل مع مجموعات بيانات كبيرة أو معقدة. لا تكتفي هذه الأداة بمساعدتك على عدّ أول ظهور للقيم فحسب، بل يمكنها أيضًا تمييزها للرجوع إليها بسهولة.
بعدتثبيتKutools لـ Excel مجانًا، يُرجى المتابعة كما يلي:
1. حدد جميع الخلايا في النطاق الذي تريد عدّ أول ظهور فيه (مثلًا، A1:A10)، ثم انقرKutools > تحديد > تحديد الخلايا المكررة/الفريدةفي الشريط. راجع لقطة الشاشة أدناه:

2. في مربع حوارتحديد الخلايا المكررة/الفريدة، اختر الخيارالقيم الفريدة (بما في ذلك التكرار الأول)ضمن قسمالقاعدة. وإذا رغبت، يمكنك أيضًا تعبئة الخلايا المحددة بلون خلفية مميز أو تغيير لون خطها لجعلها أكثر وضوحًا.

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

4. انقرموافقلإغلاق مربعات الحوار. سيتم الآن تحديد أول ظهور لكل عنصر وتمييزه تلقائيًا، مما يسهّل عليك تمييزه داخل ورقة العمل الخاصة بك.
السيناريوهات المناسبة والتحذيرات:تُعد طريقة Kutools مثالية جدًّا للمستخدمين الذين يتعاملون بانتظام مع جداول بيانات ضخمة أو يحتاجون إلى تمييز النتائج فورًا، إذ تجنّب أخطاء الصيغ وتقلل الاعتماد على الإدخال اليدوي. ومع ذلك، فهي تتطلب تثبيت إضافة Kutools على جهازك. لضمان دقة النتائج، تأكد من مراجعة خلايا التحديد قبل تشغيل الأداة. وإذا رغبت في التراجع عن التمييز، يمكنك ببساطة استخدام وظيفة التراجع في Excel (Ctrl + Z).
عدّ أول ظهور للعناصر باستخدام ماكرو كود VBA
لأتمتة العملية بالكامل في سيناريوهاتك، يمكنك استخدام ماكرو VBA للمرور عبر القائمة وحساب أول ظهور لكل قيمة—بدون الحاجة إلى إدخال صيغ يدويًا أو الاعتماد على إضافات خارجية. ويُعدّ هذا الحل مثاليًا خصوصًا للمهام المتكررة أو عند التعامل مع مجموعات بيانات كبيرة. يُرجى ملاحظة أن تشغيل ماكروات VBA يتطلب تمكين علامة التبويب «المطور» وحفظ ملفك بتنسيق يدعم الماكروات (*.xlsm).
الملاءمة والملاحظات:هذا الماكرو مثالي للمستخدمين المتقدمين أو لأولئك الذين يتعاملون مع مجموعات بيانات ضخمة أو يتم تحديثها بشكل متكرر. وبما أنه يُجري تغييرات مباشرة، فاحرص دائمًا على عمل نسخة احتياطية من بياناتك قبل تشغيله. قد لا تعمل الماكروات في إصدارات Excel المعتمدة على الويب أو إذا كانت معطَّلة بسبب إعدادات الأمان في نظامك.
1. في Excel، انقرأدوات المطور > Visual Basic. عندما تظهر نافذةMicrosoft Visual Basic for Applications، انتقل إلىإدراج > وحدة نمطية، والصق الكود التالي في نافذة الوحدة النمطية:
Sub CountFirstInstances()
Dim rng As Range
Dim dict As Object
Dim cell As Range
Dim firstInstanceCount As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set rng = Application.InputBox("Select the range to count first instances:", xTitleId, rng.Address, Type:=8)
Set dict = CreateObject("Scripting.Dictionary")
firstInstanceCount = 0
For Each cell In rng
If Not dict.exists(cell.Value) Then
dict.Add cell.Value, 1
firstInstanceCount = firstInstanceCount + 1
End If
Next cell
MsgBox "The number of first instances in the selected range is: " & firstInstanceCount, vbInformation, "First Instance Count"
End Sub 2. بعد لصق الكود، انقر على زر
(تشغيل) أو اضغطF5 لتنفيذ الماكرو. عند ظهور المطالبة، حدد النطاق الذي ترغب في تحليله (مثلًا: A1:A10)، ثم اضغطموافق. وسيظهر مربع حوار يعرض عدد أول الظواهر (أي القيم الفريدة وأول ظهور لكل قيمة مكررة) في نطاق التحديد الخاص بك.
نصائح ومنع الأخطاء:إذا قمت بتحديد نطاقٍ خاطئ، فما عليك سوى إعادة تشغيل الماكرو. يضمن كائن القاموس أن الخلايا الفارغة تُؤخذ في الاعتبار أيضًا، لذا كن حذرًا إذا كان نطاق بياناتك يحتوي على خلايا فارغة، إذ قد يؤدي ذلك إلى احتسابها كعناصر إضافية. ولتحسين الدقة، تجنّب تحديد صفوف فارغة أو قم بتصفية الخلايا الفارغة قبل الاستخدام. قد تواجه بعض طرق VBA تحذيرات أمنية أو تتطلب تمكين ماكرو؛ في هذه الحالة، عدّل إعدادات مركز الثقة إذا لزم الأمر.
نصائح استكشاف الأخطاء وإصلاحها وملاحظات:إذا لم يعمل ماكروك، فتأكد أولًا من تفعيل الماكروات عبر: ملف > خيارات > مركز الثقة > إعدادات مركز الثقة > إعدادات الماكرو. واحرص دائمًا على حفظ عملك قبل تشغيل أي كود. يدعم كود VBA هذا القوائم الموجودة في عمود واحد؛ ولتطبيقه على نطاقات متعددة الأعمدة، عدّل الكود وفقًا لاحتياجاتك.
اقتراحات موجزة:باختصار، يعتمد اختيارك بين الصيغة وأداة Kutools وماكرو VBA على مستوى خبرتك، وحجم بياناتك، وتفضيلك للحلول اليدوية مقابل الأتمتة. تعد طريقة الصيغة مرنةً ومثاليةً للبيانات الصغيرة ولمن يتقنون ميزات Excel الأساسية؛ بينما توفر Kutools حلاً سريعًا وبصريًّا لمن لديهم الإضافة مثبتة؛ أما ماكرو VBA فهو الخيار الأمثل إذا أردت أتمتة عمليات النسخ المكررة أو التعامل مع مجموعات بيانات ضخمة جدًّا. ويمكن لأيٍّ من هذه الأساليب أن يساعدك بفعالية في تحديد أول ظهور لكل قيمة وعزله بما يتناسب مع سير عملك.
مقالات ذات صلة:
- كيف يمكنك حساب عدد الخلايا التي تحتوي على بيانات في Excel؟
- كيف تحسب تكرار نص أو رقم أو حرف في عمود Excel؟
- كيف تحسب عدد الأحرف في خلية Excel باستثناء المسافات؟
- كيف تحسب فاصل الصفحات في ورقة العمل الحالية بـ 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل