Note: The other languages of the website are Google-translated. Back to English

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

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

رقم الوثيقة المفقودة 1 -2 رقم الوثيقة المفقودة 2

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

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

أدخل صفوفًا فارغة للتسلسل المفقود برمز VBA

أدخل الأرقام المفقودة أو الصفوف الفارغة للتسلسل باستخدام Kutools for Excel


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

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

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

رقم الوثيقة المفقودة 3

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

رقم الوثيقة المفقودة 4

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

رقم الوثيقة المفقودة 5

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

رقم الوثيقة المفقودة 6 -2 رقم الوثيقة المفقودة 7

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

رقم الوثيقة المفقودة 8


السهم الأزرق الحق فقاعة أدخل الأرقام المفقودة للتسلسل برمز VBA

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

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

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

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

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

رقم الوثيقة المفقودة 9

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

رقم الوثيقة المفقودة 1 -2 رقم الوثيقة المفقودة 2

السهم الأزرق الحق فقاعة أدخل صفوفًا فارغة للتسلسل المفقود برمز VBA

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

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

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

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

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

رقم الوثيقة المفقودة 9

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

رقم الوثيقة المفقودة 1 -2 رقم الوثيقة المفقودة 10

السهم الأزرق الحق فقاعة أدخل الأرقام المفقودة أو الصفوف الفارغة للتسلسل باستخدام Kutools for Excel

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30

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

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

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

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

رقم الوثيقة المفقودة 10

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

رقم الوثيقة المفقودة 10 2 رقم الوثيقة المفقودة 10 2 رقم الوثيقة المفقودة 10

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


السهم الأزرق الحق فقاعة  العرض التوضيحي: أدخل الأرقام المفقودة أو الصفوف الفارغة للتسلسل باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

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


أفضل أدوات إنتاجية المكتب

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

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (10)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا ! سيناريو رائع! كيف يمكنني تعديل هذا البرنامج النصي إذا قلت إننا بحاجة إلى معالجة ليس فقط عمود المعرف + عمود الاسم ، ولكن عمود المعرف + عمود الاسم + العمود الجديد؟ كيف يمكنني إضافة أعمدة جديدة في هذا البرنامج النصي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما يلي هو الماكرو المعدل لتضمين عمود مضاف - نقطة أخرى مهمة هي أنه عندما يُطلب منك تحديد النطاق ، يجب عليك فقط تحديد العمود الأول - استغرق ذلك بضع ساعات! نأمل في توفير وقت الآخرين

إدخال فرعي
'تحديث بواسطة Extendoffice
خافت WorkRng كنطاق
خافت Rng كمدى
قاتمة عار كمتغير
خافت ديك كمتغير
تعيين dic = CreateObject ("البرمجة النصية والقاموس")
خافت dic2 كمتغير
تعيين dic2 = CreateObject ("البرمجة النصية والقاموس")

'خطأ في الصفحة، إذهب للتالي
xTitleId = "KutoolsforExcel"
تعيين WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
عدد 1 = WorkRng.Range ("A1"). القيمة
num2 = WorkRng.Range ("A" & WorkRng.Rows.Count). القيمة
الفاصل الزمني = num2 - num1
ReDim outArr (1 للفاصل الزمني + 1 ، من 1 إلى 3)
لكل Rng في WorkRng
dic (Rng.Value) = Rng.Offset (0، 1) .Value
dic2 (Rng.Value) = Rng.Offset (0، 2) .Value
التالى
بالنسبة إلى i = 0 إلى الفاصل الزمني
outArr (i + 1، 1) = i + num1
إذا كان dic موجودًا (i + num1) ثم
outArr (i + 1، 2) = dic (i + num1)
outArr (i + 1، 3) = dic2 (i + num1)
آخر
outArr (i + 1، 2) = ""
outArr (i + 1، 3) = ""

إنهاء حالة
التالى
باستخدام WorkRng.Range ("A1"). تغيير الحجم (UBound (outArr، 1)، UBound (outArr، 2))
.Value = outArr
.يختار
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نجح هذا وكان من السهل جدًا إكمال المهمة. شكرًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكراً جزيلاً. كيف أقوم بتغيير البرنامج النصي إذا كانت الزيادات 0.02 فقط وليست 1 هذا للبرنامج النصي InsertNullBetween ()
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت أرغب في تحديد 6 أعمدة ثم التحقق من العمود الأول لمعرفة التواريخ وإذا كانت التواريخ مفقودة ، أضف صفًا (خلايا فارغة) لجميع الأعمدة الستة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أريد استخدام "إدخال رقم تسلسل مفقود" ، ولكنه لا يدعم إذا كانت الإجابة "لا". من الأرقام أكثر من 12 ، هل يمكنك المساعدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أرغب في استخدام ميزة "إدخال رقم التسلسل المفقود" لكنها لا تدعم الأرقام التي تزيد عن 12؟ هناك العديد من المجموعات التي أريد إدخال التسلسل بينها (وهو رقم أبجدي رقمي) هل يمكنك مساعدتك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت أرغب في تحديد 6 أعمدة ثم التحقق من العمود الأول لمعرفة التواريخ وإذا كانت التواريخ مفقودة ، أضف صفًا (خلايا فارغة) لجميع الأعمدة الستة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا مدهش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحاول استخدام VBA للأرقام المتسلسلة. لدي عدة أعمدة بجوار أرقام أي أرقام أيضًا. بمعنى آخر
1. HL متر 34
2. HL Watermeter 40
4. HL CO2meter 24

عندما أستخدم الكود ، فإنه يعمل للأعمدة الثلاثة الأولى ولكن يتم خلطها إذا قمت بتضمين العمود الرابع لأنه يتضمن أرقامًا أيضًا.
كيف يمكنني تغيير الرمز للتأكد من بقاء الأرقام في العمود 4 كما هي؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL