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

or

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

دوك إدراج صف فوق نص معين شنومكس  2 دوك إدراج صف فوق نص معين شنومكس

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

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

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


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

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

دوك إدراج صف فوق نص معين شنومكس

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


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


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

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

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

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

Sub test1()
'updateby Extendoffice 20151030
    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, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

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

دوك إدراج صف فوق نص معين شنومكس

4. ثم انقر فوق OK ، تم إدراج الصفوف الفارغة فوق النص المحدد "مايك".

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


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

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

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

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

2. ثم اضغط Kutools > اختار > حدد خلايا محددة، انظر الصورة:

دوك إدراج صف فوق نص معين شنومكس

3. في حدد خلايا محددة مربع الحوار، حدد الموبايل تحت نوع التحديد، ثم حدد المعايير التي تحتاجها تحت نوع خاص أو معين القسم، في هذه الحالة، وسوف تختار يساوي من نوع خاص أو معين، وأدخل الاسم الذي أريد تحديده، انظر قطة:

دوك إدراج صف فوق نص معين شنومكس

4. ثم اضغط Ok زر، يتم تحديد جميع الخلايا التي هي قيمة مايك في آن واحد، انظر الصورة:

دوك إدراج صف فوق نص معين شنومكس

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

دوك إدراج صف فوق نص معين شنومكس  2 دوك إدراج صف فوق نص معين شنومكس

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


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

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


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.
    Satyam · 28 days ago
    Is there a way not to appears dialog box with pop out to remind me to select the column data which contains specific text I want to insert row above, If a specified cell is filled with data, then process run automatically , without promptings, and insert row above?
  • To post as a guest, your comment is unpublished.
    JK · 1 years ago
    This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


    Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
  • To post as a guest, your comment is unpublished.
    SSJ · 3 years ago
    Hi, i have a similar problem as the one above.
    What if i want to select the cell below a specified criteria?

    For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
    • To post as a guest, your comment is unpublished.
      Shawn · 1 years ago
      @SSJ did you ever find a solution?
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, guys,

        To insert blank rows below a specific cell value, you can apply the following code:

        Sub BlankLine()
        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)
        Set WorkRng = WorkRng.Columns(1)
        xLastRow = WorkRng.Rows.Count
        Application.ScreenUpdating = False
        For xRowIndex = xLastRow To 1 Step -1
        Set Rng = WorkRng.Range("A" & xRowIndex)
        If Rng.Value = "Mike" Then
        Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
        End If
        Next
        Application.ScreenUpdating = True
        End Sub

        Please change the criteria "Mike" to your own cell value.

        Hope it can help you, thank you!