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

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

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

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

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

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

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


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

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

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

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

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

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

4. ثم انقر فوق الرقم 2 في الجزء العلوي من رمز المخطط التفصيلي لعرض خطوط الإجمالي الفرعي فقط.

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

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

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

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

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


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

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


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

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

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

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

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

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

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

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


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

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

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، تم إدراج الصفوف الفارغة بين البيانات عندما تتغير القيمة بناءً على العمود A.


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

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

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

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

1. انقر كوتولس > شكل > ميّز الاختلافات، انظر لقطة الشاشة:

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

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

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

انقر لتنزيل Kutools for 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (16)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي عمود بالأرقام 5,4,3,2،1،5،5 و 5 (الكثير منهم) وأريد فصل الخمسات عن الآخرين ، مثل: 4 3 2 1 5 5 5 5 5 4 3 2 1 20140716 8 2 الأرقام بترتيب تنازلي وهناك دائمًا أربعة أقل من خمسة ، لذلك حاولت: Sub InsertRowsAtValueChange () 'Update 1 Dim Rng كـ Range Dim WorkRng كمدى عند الخطأ ، استئناف التالي xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 1) Application.ScreenUpdating = False For i = WorkRng.Rows.Count To 5 Step -1 If WorkRng.Cells (i، 1). القيمة = 4 و WorkRng.Cells (i - 1، XNUMX) .Value = XNUMX ثم WorkRng.Cells (i، XNUMX) .EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub لكنها لم تنجح. هل يمكنك مساعدتي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الصيغة تعمل بشكل رائع ، ولكن هناك بعض الأمثلة التي لا تتعرف عليها
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً لكم ، بحثت في كل مكان وكان هذا هو الحل الوحيد الذي نجح معي وكان أيضًا بلغة إنجليزية بسيطة. لم تقم جميع مواقع الويب التعليمية الأخرى لبرنامج Excel بتقسيمها خطوة بخطوة كما فعلت ، شكرًا جزيلاً لك. في صحتك : )
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً لك على وصف الحلول المتعددة للمشكلة. لقد استخدمت Visual Basic وغيّرت [اقتباس] WorkRng.Cells (i، 1) .EntireRow.Insert [/ quote] مع [quote] مع WorkRng.Cells (i، 1) .EntireRow.Borders (xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With [/ quote] سيؤدي هذا إلى رسم خطوط بين الصفوف ذات القيم المتغيرة بدلاً من الأسطر الفارغة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حيث أحتاج إلى التعديل في الكود ليشمل أكثر من صف واحد ، أحتاج إلى إضافة 10 بعد كل فاصل ... شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا بكم جميعا شكرا !! إنه رائع ، هل تسمحون لي يا رفاق أيضًا بكيفية إدراج صفين عندما تتغير القيمة في VBA أو من خلال Excel.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هذه مفيدة تقريبًا! الطريقة الأولى لا تعمل بالنسبة لي لأنني عندما أتبع الخطوات بشكل صريح ، فإن البيانات التي أحذفها في أجزاء الإجمالي الفرعي تحذف الأعمدة التي قمت بفرزها بالكامل. في الطريقة الثانية عندما أصل إلى الخطوة حيث أقوم بإدراج صفوف الورقة ، يتم إدراج الصفوف فوق الخلايا FALSE التي تقسم البيانات ، ولكن يتم بعد ذلك إضافة التحديد الأخير لكل مجموعة إلى المجموعة أدناه. اي نصيحه؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] مرحبا بكم جميعا شكرا !! إنه رائع ، هل تسمحون لي يا رفاق أيضًا بكيفية إدراج صفين عندما تتغير القيمة في VBA أو من خلال Excel.بواسطة هدسون[/ quote] يرجى إعلامي بكيفية إدراج أكثر من صف واحد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد كنت أستخدم الحل الخاص بي لبعض الوقت.
1. أدخل عمودًا مساعدًا في العمود أ
2. في A2 ، اكتب "if (B2 = B1، A1، A1 + 1)"
3. انسخ هذه الصيغة إلى الصف الأخير
4. انسخ جميع الخلايا المأهولة في العمود A والصق خاص (القيم) فوقها
5. انسخ جميع الخلايا مرة أخرى والصقها في العمود A في الخلية الأولى غير المأهولة (على سبيل المثال ، إذا كان لديك 104 صفوف من البيانات بالإضافة إلى صف الرأس ، فستلصقه في الخلية A106)
6. انقر فوق البيانات وإزالة التكرارات (فقط على الخلايا التي لصقتها للتو في الخطوة 5 ؛ وليس في جميع الصفوف)
7. فرز كل العمود أ
8. احذف العمود أ

يبدو أنه كثير من الخطوات ولكن يستغرق بضع ثوانٍ فقط.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل كود VBA للمرة الأولى وقام بالضبط بما كنت أحاول القيام به. شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
RE: أدخل صفوفًا فارغة عندما تتغير القيمة باستخدام رمز vba
هل هناك طريقة يمكنني من خلالها حفظ Range دون الحاجة إلى اختياره في كل مرة أقوم بتشغيله؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
مفيد جدًا في حال احتجت إلى إدراج صف واحد ، ولكن إذا كنت بحاجة إلى إدخال 1 صفًا في كل مرة يتم فيها تغيير البيانات في عمود spwcific ، كيف يمكنني القيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا حسن
لإدراج عدة صفوف فارغة عندما تتغير القيمة في عمود معين ، يجب عليك تطبيق كود فبا التالي:

ملاحظة: في الكود أدناه ، يجب تغيير الرقم 99 حسب حاجتك ، على سبيل المثال ، عند إدخال 145 صفًا فارغًا ، يجب تغيير الرقم 99 إلى 144. يرجى المحاولة ، آمل أن يساعدك!

Sub InsertRowsAtValueChange ()
خافت Rng كمدى
خافت WorkRng كنطاق
على خطأ استئناف التالي
xTitleId = "KutoolsforExcel"
تعيين WorkRng = Application.Selection
تعيين WorkRng = Application.InputBox ("النطاق" ، xTitleId ، WorkRng.Address ، النوع: = 8)
Application.ScreenUpdating = خطأ
بالنسبة إلى i = WorkRng.Rows.Count To 2 Step -1
If WorkRng.Cells (i، 1) .Value <> WorkRng.Cells (i - 1، 1) .Value ثم
النطاق (WorkRng.Cells (i، 1) .EntireRow، WorkRng.Cells (i + 99، 1) .EntireRow).
إنهاء حالة
التالى
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد جدا. الكود الذي يعرضه Skyyang أعلاه يعمل بشكل مثالي. فقط تأكد من أن البيانات لا تحتوي على مسافات بالفعل.

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

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

هذا vba مذهل ، بينما أحتاج إلى رمز بديل آخر لإدراج صف فارغ واحد بعد التغييرات في أرقام التسلسل. مثال: في العمود الذي يحتوي على سلاسل أرقام مثل 1 ، 2 ، 3 ، 5 ، 6 ، 9 إلخ ...
تحتاج إلى إضافة صف فارغ واحد بين 3 و 5 وكذلك 6 و 9.
من فضلك هل يمكنك مع هذا.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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