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

or

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

إذا كان هناك نص متعدد الأسطر في خلية ، فأنت الآن تريد استخراج ونسخ نص السطر الأول أو الأخير من الخلية كما هو موضح في الصورة التالية. كيف يمكنك التعامل مع هذه المهمة بسرعة وسهولة في Excel؟

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


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

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

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

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

رمز VBA: إدراج صفوف فارغة بعد النص المحدد

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 الزر ، ويتم إدراج الصفوف الفارغة بعد النص المحدد الذي حددته ، راجع لقطة الشاشة:


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

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


  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين الصفوف المكررة ومبلغ / متوسط... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • الصيغ المفضلة وإدراج بسرعة، النطاقات، الرسوم البيانية والصور؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • تجميع الجداول المحورية بواسطة رقم الأسبوع ، يوم الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة. تمييز الخلايا التي لها صيغة / اسم...
علامة التبويب kte 201905
  • تمكين تحرير علامات التبويب والقراءة في 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.

Be the first to comment.