نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

number1 DOC-إدراج-مفقود -2 number2 DOC-إدراج-مفقود

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

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

إدراج صفوف فارغة لتسلسل مفقود مع التعليمات البرمجية فبا

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


إدراج أرقام مفقودة أو صفوف فارغة للتسلسل المفقود:

كوتولس ل إكسيلالصورة ابحث عن رقم تسلسل مفقود ميزة يمكن أن يساعدك بسرعة وسهولة العثور على تسلسل في عداد المفقودين، وإدراج أرقام مفقودة أو صفوف فارغة في تسلسل البيانات الموجودة، أو ملء لون الخلفية عند مواجهة تسلسل مفقود.

إدراج أرقام مفقودة إدراج صفوف فارغة
number10 DOC-إدراج-مفقود -2 number10 DOC-إدراج-مفقود -2 number10 DOC-إدراج-مفقود

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


السهم الأزرق الفقاعة اليمنى إدراج أرقام مفقودة للتسلسل مع ميزة "إزالة و إزالة التكرار"


قد يكون يمكنك العثور على الأرقام المفقودة واحدا تلو الآخر، ومن ثم إدراجها، ولكن من الصعب بالنسبة لك لتحديد موقع المفقودين إذا كان هناك مئات من أرقام متتابعة. في إكسيل، يمكنني استخدام ميزة "فرز وإزالة التكرارات" للتعامل مع هذه المهمة.

1. بعد نهاية قائمة التسلسل، املأ أرقام تسلسل أخرى من شنومكس إلى شنومكس. انظر لقطة الشاشة:

number3 DOC-إدراج-مفقود

2. ثم حدد نطاق رقم التسلسلين وانقر Data (البيانات) > ترتيب من الألف إلى الياء، انظر الصورة:

number4 DOC-إدراج-مفقود

3. وقد تم فرز البيانات المحددة على النحو التالي قطة:

number5 DOC-إدراج-مفقود

4. ثم تحتاج إلى إزالة التكرارات عن طريق النقر Data (البيانات) > إزالة التكرارات، وفي برزت إزالة التكرارات مربع الحوار، والتحقق من عمود الاسم الذي تريد إزالة التكرارات، انظر لقطات:

number6 DOC-إدراج-مفقود -2 number7 DOC-إدراج-مفقود

5. ثم اضغط OK، التكرارات في العمود أ تم حذف، والأرقام المفقودة في قائمة تسلسل تم إدراجها، انظر الصورة:

number8 DOC-إدراج-مفقود


السهم الأزرق الفقاعة اليمنى إدراج أرقام مفقودة للتسلسل مع التعليمات البرمجية فبا

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

1. اضغط باستمرار ALT + F11 مفاتيح، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة.

فبا: أدخل أرقام مفقودة للتسلسل

Sub InsertValueBetween()
'Update 20130825
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 مفتاح لتشغيل هذا الرمز، ومربع موجه سوف تخرج، يرجى تحديد نطاق البيانات التي تريد إدراج الأرقام المفقودة (لا حدد نطاق العنوان)، انظر الصورة:

number9 DOC-إدراج-مفقود

4. ثم انقر فوق OK، تم إدخال الأرقام المفقودة إلى قائمة التسلسل. انظر لقطات الشاشة:

number1 DOC-إدراج-مفقود -2 number2 DOC-إدراج-مفقود

السهم الأزرق الفقاعة اليمنى إدراج صفوف فارغة لتسلسل مفقود مع التعليمات البرمجية فبا

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

1. اضغط باستمرار ALT + F11 مفاتيح، وأنه يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة.

فبا: إدراج صفوف فارغة لتسلسل مفقود

Sub InsertNullBetween()
'Update 20130829
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 مفتاح لتشغيل هذا الرمز، وسيتم عرض مربع موجه، ثم حدد نطاق البيانات التي تريد إدراج صفوف فارغة لتسلسل مفقود (لا حدد نطاق العنوان)، انظر الصورة:

number9 DOC-إدراج-مفقود

4. ثم انقر فوق OK، تم إدراج الصفوف الفارغة لقائمة التسلسل المفقودة. انظر لقطات الشاشة:

number1 DOC-إدراج-مفقود -2 number10 DOC-إدراج-مفقود

السهم الأزرق الفقاعة اليمنى إدراج أرقام مفقودة أو صفوف فارغة للتسلسل مع كوتولس ل إكسيل

هنا، سوف أعرض أداة سهلة ومفيدة - كوتولس ل إكسيل، بما لديها ابحث عن رقم تسلسل مفقود ، يمكنك إدراج بسرعة رقم تسلسل مفقود أو صفوف فارغة بين تسلسل البيانات الموجودة.

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

إذا كنت قد قمت بتثبيت كوتولس ل إكسيل، يرجى القيام بما يلي:

1. حدد تسلسل البيانات الذي تريد إدراج الأرقام المفقودة.

2. انقر Kutools > إدراج > ابحث عن رقم تسلسل مفقود، انظر الصورة:

number10 DOC-إدراج-مفقود

3. في ابحث عن رقم تسلسل مفقود مربع الحوار، والتحقق إدراج رقم التسلسل المفقود لإدراج الأرقام المفقودة أو Iنسرتينغ الصفوف فارغة عند مواجهة أرقام تسلسل مفقودة لإدراج صفوف فارغة ما تحتاج إليه. انظر لقطة الشاشة:

number10 DOC-إدراج-مفقود

4. ثم انقر فوق OK زر، وأرقام تسلسل مفقودة أو صفوف فارغة تم إدراجها في البيانات، انظر لقطات:

number10 DOC-إدراج-مفقود  2 number10 DOC-إدراج-مفقود  2 number10 DOC-إدراج-مفقود

تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!


السهم الأزرق الفقاعة اليمنى عرض: إدراج أرقام مفقودة أو صفوف فارغة للتسلسل مع كوتولس ل إكسيل

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


مقالة ذات صلة:

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


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Manouk · 7 months ago
    I am trying to use the VBA for sequential numbers. I have several columns next to the numbers of which numbers too. I.e.
    1. HL Meter 34
    2. HL Watermeter 40
    4. HL CO2meter 24

    When I use the code it works for the first 3 columns but it gets mixed up if I include the 4th column since it includes numbers too.
    How can I change the code to make sure the numbers in column 4 stay the same?
  • To post as a guest, your comment is unpublished.
    Rob · 7 months ago
    Thank you amazing
  • To post as a guest, your comment is unpublished.
    Gavin Cooke · 2 years ago
    What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
  • To post as a guest, your comment is unpublished.
    phani · 3 years ago
    I want to use "Inserting missing sequence Number" feature
    but it's not supporting for digits more than 12 ?
    there are many sets in which I want to insert the sequence between (it's a alpha-numeric digit)
    can you help
  • To post as a guest, your comment is unpublished.
    phani · 3 years ago
    Hi,
    I want to use "Inserting Missing Sequence Number", but it's not supporting if the no. of digits are more than 12
    can you help ?
  • To post as a guest, your comment is unpublished.
    Shahab · 3 years ago
    What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
  • To post as a guest, your comment is unpublished.
    Francois · 4 years ago
    Thank you very much.
    How do i change the script if the increments is only 0.02 and not 1
    This is for the script InsertNullBetween()
  • To post as a guest, your comment is unpublished.
    jonny · 5 years ago
    this worked and was very easy to complete the task. Thank you.
  • To post as a guest, your comment is unpublished.
    Denis · 5 years ago
    Thanks ! Great script !
    How i can modify this script if i say we need to process not only ID column + NAME column, but ID column + NAME column + NEW column ? How i can add new columns in this script?