كيفية إدراج الأرقام أو الصفوف للأرقام المتسلسلة المفقودة في إكسيل؟
لنفترض أن لديك قائمة بالأرقام المتسلسلة في ورقة العمل ، ولكن هناك بعض الأرقام المفقودة بين التسلسل ، وتحتاج الآن إلى إدراج الأرقام المفقودة أو الصفوف الفارغة للتأكد من اكتمال التسلسل (كما هو موضح في لقطات الشاشة التالية). كيف يمكنك حل هذه المشكلة بسرعة في Excel؟
أدخل الأرقام المفقودة للتسلسل باستخدام ميزة الفرز وإزالة التكرارات
قد تتمكن من العثور على الأرقام المفقودة واحدًا تلو الآخر ، ثم إدخالها ، لكن يصعب عليك تحديد مكان الأرقام المفقودة إذا كان هناك مئات الأرقام المتسلسلة. في Excel ، يمكنني استخدام ميزة الفرز وإزالة التكرارات للتعامل مع هذه المهمة.
1. بعد نهاية قائمة التسلسل ، قم بتعبئة أرقام تسلسلية أخرى من 2005023001 إلى 2005023011. انظر لقطة الشاشة:
2. ثم حدد نطاق رقمي التسلسل وانقر البيانات > ترتيب من الألف إلى الياء، انظر لقطة الشاشة:
3. وقد تم فرز البيانات المحددة على أنها لقطة شاشة التالية:
4. ثم تحتاج إلى إزالة التكرارات عن طريق النقر البيانات > إزالة التكرارات، وبرزت إزالة التكرارات مربع الحوار، والتحقق من عمود الاسم الذي تريد إزالة التكرارات منه ، انظر لقطات الشاشة:
5. ثم اضغط OK، التكرارات في العمود أ تم حذفه ، وتم إدراج الأرقام المفقودة في قائمة التسلسل ، انظر الصورة:
أدخل الأرقام المفقودة للتسلسل برمز 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 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه ، يرجى تحديد نطاق البيانات الذي تريد إدخال الأرقام المفقودة (لا تحدد نطاق العنوان) ، انظر لقطة الشاشة:
4. ثم انقر فوق OK، تم إدراج الأرقام المفقودة في قائمة التسلسل. انظر لقطات الشاشة:
أدخل صفوفًا فارغة للتسلسل المفقود برمز 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 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه ، ثم حدد نطاق البيانات الذي تريد إدراج صفوف فارغة للتسلسل المفقود (لا تحدد نطاق العنوان) ، انظر لقطة الشاشة:
4. ثم انقر فوق OK، تم إدراج الصفوف الفارغة لقائمة التسلسل المفقودة. انظر لقطات الشاشة:
أدخل الأرقام المفقودة أو الصفوف الفارغة للتسلسل باستخدام Kutools for Excel
هنا ، سأقدم أداة سهلة وسهلة الاستخدام- كوتولس ل إكسيل، بما لديها البحث عن رقم التسلسل المفقود الميزة ، يمكنك إدخال رقم التسلسل المفقود أو الصفوف الفارغة بسرعة بين تسلسل البيانات الموجود.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
إذا كنت قد قمت بتثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد تسلسل البيانات الذي تريد إدخال الأرقام المفقودة.
2. انقر كوتولس > إدراج > البحث عن رقم التسلسل المفقود، انظر لقطة الشاشة:
3. في البحث عن رقم التسلسل المفقود مربع الحوار ، تحقق إدخال رقم التسلسل المفقود لإدخال الأرقام المفقودة أو أناnserting الصفوف الفارغة عند مواجهة أرقام التسلسل المفقودة لإدراج صفوف فارغة حسب حاجتك. انظر لقطة الشاشة:
4. ثم انقر فوق OK زر ، وتم إدخال أرقام التسلسل المفقودة أو الصفوف الفارغة في البيانات ، انظر لقطات الشاشة:
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
العرض التوضيحي: أدخل الأرقام المفقودة أو الصفوف الفارغة للتسلسل باستخدام Kutools for Excel
مقالة ذات صلة:
كيفية تحديد تسلسل الأرقام المفقودة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!