كيف تُدرج صفًّا فارغًا فوق نصٍّ معيَّن في Excel؟
 |  |  |
عندما تعمل على ورقة عمل، هل سبق أن حاولت إدراج صف فارغ فوق نص معيّن في عمود؟ على سبيل المثال، يحتوي العمود A على قائمة بأسماء معينة، وأنت الآن ترغب في إدراج صفوف فارغة مباشرةً فوق كل خلية تحتوي على الاسم «Mike»، كما هو موضح في لقطة الشاشة اليسرى. قد لا توفّر لك Excel طريقة مباشرة لأداء هذه المهمة، لكن في هذه المقالة، سأعرض عليك بعض الحيل الذكية والفعّالة للتعامل معها بسلاسة.
إدراج صف فارغ فوق نص معيّن باستخدام كود VBA
إدراج صف فارغ يدويًّا فوق النص المعيّن، خليةً تلو الأخرى، يستهلك وقتًا طويلاً بلا داعٍ. لذا، سأقدّم لك كود VBA يُمكّنك من إدراج صف فارغ دفعة واحدة فوق القيمة المعيّنة في الخلية!
1. اضغط باستمرار على مفتاحَيْALT + F11، وسيفتح لك ذلك نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقإدراج > وحدة نمطية، ثم الصق ماكرو التالي في نافذةالوحدة النمطية.
كود VBA: إدراج صف فارغ فوق نص معيّن بسرعة
Sub test1()
'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, "Mike") > 0 Then
Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
End If
Next
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك بتحديد بيانات العمود التي تحتوي على النص المعيّن الذي تريد إدراج صف فوقه. انظر لقطة الشاشة:
4. ثم انقر فوق زرموافق، وسيتم إدراج صفوف فارغة فوق النص المُعيَّن «Mike».
ملاحظة: في الكود أعلاه، يمكنك تغيير قيمة النص "Mike" إلى أي قيمة أخرى تريدها من السطرIf InStr(1, xRng.Cells(i, 1).Value, «Mike») > 0Then.
إدراج صف فارغ فوق نص معيّن باستخدام Kutools لـ Excel
إذا كنت تمتلكKutools لـ Excel، فيمكنك استخدام ميزتهتحديد خلايا محددةلاختيار القيم التي تريدها أولًا، ثم تطبيق أداة «إدراج صفوف ورقة العمل» في Excel لإدراج صفوف فارغة دفعة واحدة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد نطاق البيانات الذي ترغب في استخدامه.
2. ثم انقر فوقKutools > تحديد > تحديد خلايا محددة، انظر لقطة الشاشة:
3. في مربع حوارتحديد خلايا محددة، اخترخليةضمن قسمنوع التحديد، ثم حدّد المعايير المطلوبة ضمن قسمتحديد النوع. في هذه الحالة، سأختاريساويمن القائمة المنسدلة لخانةتحديد النوع، وأدخل الاسم الذي أريد تحديده. انظر لقطة الشاشة:
4. بعد ذلك، انقر فوق زرموافق، وسيتم تحديد جميع الخلايا التي تحتوي على القيمة «Mike» دفعة واحدة. انظر لقطة الشاشة:
5.بعد تحديد خلايا النص المعيّن، يُرجى النقر فوقالصفحة الرئيسية>إدراج>إدراج صفوف ورقة العمل، وسيتم إدراج صفوف فارغة فوق النص المحدد، انظر لقطات الشاشة:
 | | |
حمّل Kutools لـ Excel وجربه مجانًا الآن!
عرض توضيحي: إدراج صف فارغ فوق نص معيّن باستخدام Kutools لـ Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل