كيفية إدراج أرقام أو صفوف للأرقام التسلسلية المفقودة في Excel؟
لنفترض أن لديك قائمة من الأرقام التسلسلية في ورقة عمل، ولكن هناك بعض الأرقام المفقودة بين التسلسل، والآن تحتاج إلى إدراج الأرقام المفقودة أو الصفوف الفارغة لضمان اكتمال التسلسل (كما هو موضح في لقطات الشاشة التالية). كيف يمكنك حل هذه المشكلة بسرعة في Excel؟
 |  |  | إدراج الأرقام المفقودة للتسلسل باستخدام ميزتي الترتيب وإزالة التكرارات إدراج الأرقام أو الصفوف الفارغة المفقودة للتسلسل باستخدام Kutools لـ 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، وسيفتح نافذة Microsoft Visual Basic for Applications.
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، وسيفتح نافذة Microsoft Visual Basic for Applications.
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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد