كيفية إدراج أرقام أو صفوف للأرقام التسلسلية المفقودة في Excel؟

لنفترض أن لديك قائمة من الأرقام التسلسلية في ورقة عمل، ولكن هناك بعض الأرقام المفقودة بين التسلسل، والآن تحتاج إلى إدراج الأرقام المفقودة أو الصفوف الفارغة لضمان اكتمال التسلسل (كما هو موضح في لقطات الشاشة التالية). كيف يمكنك حل هذه المشكلة بسرعة في Excel؟

إدراج الأرقام المفقودة للتسلسل باستخدام ميزتي الترتيب وإزالة التكرارات إدراج الأرقام أو الصفوف الفارغة المفقودة للتسلسل باستخدام Kutools لـ Excel إدراج الأرقام المفقودة للتسلسل باستخدام كود VBA إدراج صفوف فارغة للتسلسل المفقود باستخدام كود VBA

إدراج الأرقام المفقودة للتسلسل باستخدام ميزتي الترتيب وإزالة التكرارات

قد تتمكن من العثور على الأرقام المفقودة واحدة تلو الأخرى، ثم إدراجها، لكن من الصعب عليك تحديد موقع الأرقام المفقودة إذا كان هناك مئات الأرقام التسلسلية. في 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؟