كيف تُدرج أرقامًا أو صفوفًا لتعويض الأرقام التسلسلية المفقودة في Excel؟
افترض أن لديك قائمة بأرقام تسلسلية في ورقة عمل، لكن بعض الأرقام مفقودة من التسلسل، وتحتاج الآن إلى إدراج الأرقام المفقودة أو صفوف فارغة لاستكمال التسلسل بالكامل (كما يظهر في لقطات الشاشة التالية). كيف يمكنك حل هذه المشكلة بسرعة في Excel؟
إدراج الأرقام المفقودة في التسلسل باستخدام ميزة الفرز وإزالة التكرارات
ربما يمكنك العثور على الأرقام المفقودة واحدة تلو الأخرى ثم إدراجها، لكن تحديد موقعها يصبح أمرًا صعبًا إذا احتوى التسلسل على مئات الأرقام. في Excel، يمكنك استخدام ميزة الفرز وإزالة التكرارات للتعامل مع هذه المهمة بسهولة.
1. بعد انتهاء قائمة التسلسل، أدخل الأرقام المتتالية من 2005023001 إلى 2005023011. راجع لقطة الشاشة:
2. بعد ذلك، حدد نطاق العمودين المحتويَين على أرقام متتالية، ثم انقر علىبيانات > تصاعدي. راجع لقطة الشاشة:
3. تم فرز البيانات المحددة كما في لقطة الشاشة التالية:
4. بعد ذلك، انقر علىبيانات > إزالة التكراراتلإزالة القيم المكررة. في مربع الحوار المنبثقإزالة التكرارات، حدد اسمالعمودالذي تريد إزالة القيم المكررة منه. راجع لقطات الشاشة:
 |  |  |
5. بعد ذلك، انقر علىموافق، وسيتم حذف القيم المكررة فيالعمود Aوإدراج الأرقام المفقودة في قائمة التسلسل. راجع لقطة الشاشة:
إدراج الأرقام المفقودة أو صفوف فارغة في التسلسل باستخدام Kutools لـ Excel
هنا، نقدّم لك أداة سهلة وعملية—Kutools لـ Excel! وباستخدام ميزتهاالعثور على التسلسل المفقود، يمكنك بسرعة إدراج أرقام التسلسل أو الصفوف الفارغة المفقودة ضمن تسلسل البيانات الحالي.
إذا كنت قد قمت بتثبيتKutools لـ Excel، فالرجاء اتباع الخطوات التالية:
1. حدد تسلسل البيانات الذي تريد إدراج الأرقام المفقودة فيه.
2. انقر علىKutools > إدراج > العثور على التسلسل المفقود، راجع لقطة الشاشة:
3. في مربع الحوارالعثور على التسلسل المفقود، اختر الخيارإدراج البيانات المفقودةلإدخال الأرقام المفقودة، أو اختر الخيارإدراج صفوف فارغة عند مواجهة أرقام متتالية مفقودةلإدخال صفوف فارغة حسب احتياجاتك. راجع لقطة الشاشة:
4. بعد ذلك، انقر على زرموافق، وسيتم إدراج أرقام متتالية أو صفوف فارغة مفقودة في البيانات. راجع لقطات الشاشة:
 | |  | |  |
حمّل Kutools لـ Excel وجربه مجانًا الآن!
إدراج الأرقام المفقودة في التسلسل باستخدام كود VBA
إذا وجدت أن الخطوات السابقة تستغرق وقتًا طويلاً، فهناك أيضًا كود VBA يمكنه مساعدتك في حل هذه المشكلة بسهولة. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وستفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر علىإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذةالوحدة النمطية.
VBA: إدراج الأرقام المفقودة في التسلسل
Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
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)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
outArr(i + 1, 1) = i + num1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وسيظهر مربع حوار. يرجى تحديد نطاق البيانات الذي تريد إدراج الأرقام المفقودة فيه (لا تشمل نطاق العناوين). راجع لقطة الشاشة:
4. بعد ذلك، انقر علىموافق، وسيتم إدراج الأرقام المفقودة في قائمة التسلسل. راجع لقطات الشاشة:
 | |  |
إدراج صفوف فارغة للأماكن المفقودة في التسلسل باستخدام كود VBA
في بعض الأحيان، قد تحتاج فقط إلى تحديد مواضع الأرقام المفقودة وإدراج صفوف فارغة بين البيانات، لتتمكن من إدخال المعلومات التي تحتاجها. وبالطبع، يمكن للكود التالي المكتوب بلغة VBA أن يساعدك أيضًا في حل هذه المشكلة.
1.اضغط مع الاستمرار على مفتاحَيALT + F11، وستفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر علىإدراج>وحدة نمطية، والصق الكود التالي في نافذةالوحدة النمطية.
VBA: إدراج صفوف فارغة للأماكن المفقودة في التسلسل
Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
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)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
If dic.Exists(i + num1) Then
outArr(i + 1, 1) = i + num1
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 1) = ""
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وسيظهر مربع حوار. بعد ذلك، حدد نطاق البيانات التي تريد إدراج صفوف فارغة فيها للأماكن المفقودة في التسلسل (لا تحدد نطاق العنوان). راجع لقطة الشاشة:
4. بعد ذلك، انقر علىموافق، وسيتم إدراج صفوف فارغة في قائمة التسلسل المفقودة. راجع لقطات الشاشة:
| |  |
مقال ذو صلة:
كيف تحدد الأرقام المفقودة في تسلسل 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل