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

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

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

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


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

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

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

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

كود فبا: أدخل صفوف فارغة بعد النص المحدد

Sub Insertrowbelow()
'updateby Extendoffice
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

ملاحظة: في الكود أعلاه ، يمكنك تغيير قيمة النص "في التقدم"إلى أي قيم أخرى تريدها من البرنامج النصي إذا كان InStr (1، xRng.Cells (i، 1) .Value، "قيد التقدم")> 0 ثم.

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

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


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

  • انسخ الصف وأدرجه عدة مرات أو كرر الصف X مرة
  • في عملك اليومي ، هل سبق لك أن حاولت نسخ صف أو كل صف ثم إدراجه عدة مرات أسفل صف البيانات الحالي في ورقة العمل؟ على سبيل المثال ، لدي مجموعة من الخلايا ، الآن ، أريد نسخ كل صف ولصقه 3 مرات في الصف التالي كما هو موضح في لقطة الشاشة التالية. كيف يمكنك التعامل مع هذه الوظيفة في Excel؟
  • أدخل صفوفًا فارغة عند تغيير القيمة في Excel
  • لنفترض أن لديك نطاقًا من البيانات ، وتريد الآن إدراج صفوف فارغة بين البيانات عندما تتغير القيمة ، بحيث يمكنك فصل القيم المتسلسلة نفسها في عمود واحد كما هو موضح في لقطات الشاشة التالية. في هذا المقال سوف أتحدث عن بعض الحيل لك لحل هذه المشكلة.
  • أدخل صفًا فارغًا أعلى نص معين في Excel
  • عندما تعمل على ورقة عمل ، هل سبق لك أن حاولت إدراج صف فارغ أعلى نص معين في عمود؟ على سبيل المثال ، هناك بعض الأسماء في العمود A ، الآن ، أريد إدراج صفوف فارغة أعلى الخلايا التي تحتوي على اسم "Mike" كما هو موضح في لقطة الشاشة اليسرى ، ربما لا توجد طريقة مباشرة لحل هذه المهمة في Excel . في هذا المقال سأتحدث عن بعض الحيل الجيدة للتعامل مع هذه الوظيفة في برنامج Excel.

  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (2)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا مفيد جدا! لكن كيف أضيف صفوفًا جديدة بعد عدة نصوص مختلفة. على سبيل المثال ، أريد إضافة صف بعد SB2 و BB2 ، فهل هذا ممكن؟ أو أحتاج فقط إلى تشغيله مرتين بنصين مختلفين؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك استخدام وظيفة textjoin عن طريق إضافة نفس الكلمة في نهاية كل سطر ثم حذف تلك الكلمة باستخدام ctrl + f
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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