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

or

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

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

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

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

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

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


أدخل فاصل الصفحات أو الصفوف الفارغة أو الحد السفلي أو لون التعبئة عندما تتغير القيمة بسرعة

إذا كان لديك كوتولس ل إكسيل's التمييز بين الاختلافات الميزة ، يمكنك إدراج فاصل صفحات أو صفوف فارغة أو حد سفلي أو تعبئة لون بسرعة عندما تتغير القيمة حسب حاجتك. انظر أدناه التجريبي. انقر لتحميل Kutools لـ Excel!


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

مع ال المجموع الكلي ، يمكنك إدراج صفوف فارغة بين البيانات عندما تتغير القيمة كخطوات التالية:

1. حدد نطاق البيانات الذي تريد استخدامه.

2. انقر Data (البيانات) > المجموع الكلي لفتح المجموع الكلي مربع الحوار، وفي المجموع الكلي الحوار، يرجى القيام بالخيارات التالية:

1: حدد اسم العمود الذي تريد إدراج صفوف فارغة استنادا إليه عندما تتغير القيمة تحت في كل تغيير في قسم؛
2: أختر عد من استخدام وظيفة قائمة منسدلة؛
3: تحقق من اسم العمود الذي تريد إدراج المجموع الفرعي إليه في إضافة المجموع الفرعي إلى قائمة

3. ثم اضغط OK، تم إدراج خطوط المجموع الفرعي بين المنتجات المختلفة، ويتم عرض رموز المخطط على يسار الجدول، انظر الصورة:

4. ثم انقر فوق رقم شنومكس في أعلى رمز المخطط لعرض فقط خطوط المجموع الفرعي.

5. ثم حدد بيانات النطاق الفرعي، واضغط البديل +. مفاتيح الاختصار لتحديد الصفوف المرئية فقط، انظر قطة:

6. بعد تحديد الصفوف المرئية فقط ثم اضغط على حذف مفتاح على لوحة المفاتيح، وتمت إزالة كافة الصفوف المجموع الفرعي.

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

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

9. أخيرا، يمكنك حذف العمود A حسب الحاجة.


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

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

1. في خلية فارغة C3 ، يرجى إدخال هذه الصيغة = = A3 A2وفي الخلية D4 ، أدخل هذه الصيغة = = A4 A3، انظر الصورة:

2. ثم حدد كسنومكس: دسنومكس، واسحب مقبض التعبئة إلى النطاق الذي تريد تطبيق أطروحات الصيغ، وستحصل على صحيح or كاذب في الخلايا، انظر الصورة:

3. ثم اضغط CTRL + F مفاتيح لفتح بحث واستبدال الحوار، في الحوار برزت خارج، أدخل خاطئة في تجد ما مربع النص تحت البحث ، ثم انقر فوق الخيارات زر لتوسيع هذا الحوار، واختيار القيم من إنظر في القائمة المنسدلة، انظر الصورة:

4. انقر جد كل ، ثم اضغط CTRL + A لتحديد كل نتائج البحث ، تم تحديد جميع خلايا FALSE في وقت واحد ، راجع لقطة الشاشة:

6. أقفل ال بحث واستبدال الحوار ، الخطوة التالية ، يمكنك إدراج صفوف فارغة عن طريق النقر الصفحة الرئيسية > إدراج > إدراج صفوف الصفوف، وتم إدراج صفوف فارغة في البيانات عندما تتغير القيمة استنادا إلى العمود "أ"، راجع لقطات الشاشة:

7. وأخيرا، يمكنك حذف العمود المساعد C و D كما تحتاج.


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

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

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

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

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

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

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

4. ثم انقر فوق OK، تم إدراج الصفوف الفارغة بين البيانات عندما تتغير القيمة استنادا إلى العمود ألف.


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

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

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

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

1. انقر Kutools > شكل > التمييز بين الاختلافات، انظر الصورة:

2. في تميز الاختلافات حسب العمود الرئيسي مربع الحوار، يرجى القيام بالعمليات التالية:

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

3. ثم اضغط Ok زر ، وعدد معين من الصفوف الفارغة تم إدراجها في البيانات إذا تغيرت قيمة الخلية ، راجع لقطات الشاشة:

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


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.
    Hassan · 11 months ago
    Hello,
    Is very usefull in case i need to insert 1 row, but if i need to insert 145 rows in every time the data change in spwcific column, how can i do it??
    • To post as a guest, your comment is unpublished.
      skyyang · 11 months ago
      Hi, Hassan,
      To insert multiple blank rows when value changes in a specific column, you should apply the following VBA code:

      Note: In the below code, you should change the number 99 to your need, for example, when you insert 145 blank rows, you should change the number 99 to 144. Please try it, hope it can help you!

      Sub InsertRowsAtValueChange()
      Dim Rng As Range
      Dim WorkRng As Range
      On Error Resume Next
      xTitleId = "KutoolsforExcel"
      Set WorkRng = Application.Selection
      Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
      Application.ScreenUpdating = False
      For i = WorkRng.Rows.Count To 2 Step -1
      If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
      Range(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
      End If
      Next
      Application.ScreenUpdating = True
      End Sub
      • To post as a guest, your comment is unpublished.
        DCalk · 10 months ago
        Very helpful. The code that skyyang shows above worked perfectly. Just make sure that the data doesn't already have spaces in it.

        I don't understand VBA, but I believe if you wanted to add more rows underneath data that already had the spacing, there should be a way to ignore spaces.

        Could a line be added to ignore or skip over blank lines? That might make this code more universal and repeatable if needed. Also a delete function that is similar to this may be useful so undo isn't necessary.
  • To post as a guest, your comment is unpublished.
    Suzi · 1 years ago
    RE: insert blank rows when value changes with vba code
    Is there a way that I can save the Range & not have to pick it every time I run it?
  • To post as a guest, your comment is unpublished.
    Eric F · 1 years ago
    The VBA code worked 1st time and did exactly what I was trying to do. Thank you so much!
  • To post as a guest, your comment is unpublished.
    Steve · 1 years ago
    I've been using my own solution for some time.
    1. Insert a helper column into Column A
    2. In A2, type "if(B2=B1,A1,A1+1)"
    3. Copy that formula down to the last row
    4. Copy all the populated cells in column A and Paste Special (Values) over them
    5. Copy all the cells again and paste them into column A in the first unpopulated cell (e.g. if you have 104 rows of data plus a header row you would paste into cell A106)
    6. Click on Data and Remove Duplicates (only on the cells you just pasted in Step 5; not on all rows)
    7. Sort all of Column A
    8. Delete Column A

    Seems like a lot of steps but only takes a few seconds.
  • To post as a guest, your comment is unpublished.
    Madhur · 2 years ago
    [quote name="Hudson"]Hi all thank you!!

    its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.[/quote]

    Please let me know how to insert more than 1 row.
  • To post as a guest, your comment is unpublished.
    Davis · 2 years ago
    Hi there,

    These are almost useful! The first method doesn't work for me because when I follow the steps explicitly, the the data that I delete in the subtotal panes deletes the entire columns that I've sorted.

    In the second method when I get to the step where I insert sheet rows, the rows are inserted ABOVE the FALSE cells which breaks up the data, but the last selection of every group is then added to the group below.

    Any advice???
  • To post as a guest, your comment is unpublished.
    Hudson · 3 years ago
    Hi all thank you!!

    its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.
  • To post as a guest, your comment is unpublished.
    Rafael · 3 years ago
    Where in the code would I need to modify to include more than one row, I need to add 10 after each break...

    Thanks
  • To post as a guest, your comment is unpublished.
    Ivo Tamm · 3 years ago
    Thank you very much for describing multiple solutions for the problem.
    I used the Visual Basic one and changed
    [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] with
    [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlMedium
    End With[/quote]
    This will draw lines between rows with changing values instead of empty lines.
  • To post as a guest, your comment is unpublished.
    Saul · 4 years ago
    Thank you so much, looked everywhere and this was the only solution that worked for me that was also in plain english.

    All the other Excel tutorial websites didn't break it down step-by-step they way you did, thank you very much.

    cheers : )
  • To post as a guest, your comment is unpublished.
    Abner · 4 years ago
    I have a column with the numbers 5,4,3,2 and 1 (a LOT of them) and I wanna separate the Fives from the others, like:

    5
    5
    5

    4
    3
    2
    1

    5
    5
    5
    5
    5

    4
    3
    2
    1

    The numbers are in desc order and there are always a four below a five,
    so I tried:

    Sub InsertRowsAtValueChange()
    'Update 20140716
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    Application.ScreenUpdating = False
    For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value = 5 And WorkRng.Cells(i - 1, 1).Value = 4 Then
    WorkRng.Cells(i, 1).EntireRow.Insert
    End If
    Next
    Application.ScreenUpdating = True
    End Sub

    But it didn't work. Can you help me?