انتقل إلى المحتوى الرئيسي

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

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

قم بإدراج صفوف فارغة بعد نص معين برمز 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is so helpful! But how do I add new rows after several different texts. For example, I want to add a row after SB2 and BB2, is this possible? or do I just need to run it two times with two different texts?
This comment was minimized by the moderator on the site
You can use the textjoin function by adding the same word at the end of each line and then delete that word with ctrl+f
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations