كيفية إدراج صف فارغ بناءً على قيمة الخلية أعلاه في إكسيل؟
في Excel ، تعد إدراج الصفوف الفارغة إحدى الوظائف الأكثر استخدامًا في عملنا اليومي. ومع ذلك ، هل هناك أي طريقة لإدراج صفوف فارغة بسرعة بناءً على قيمة الخلية أعلاه كما هو موضح أدناه؟ الآن ، تتحدث هذه المقالة عن طريقة إدراج صف فارغ بسرعة استنادًا إلى قيم الخلية أعلاه في Excel.
إدراج صف على أساس القيمة أعلاه
إدراج صف على أساس القيمة أعلاه
إذا كنت تريد إدراج صف فارغ بناءً على الرقم أعلاه ، يمكنك استخدام رمز ماكرو.
1. قم بتمكين الورقة التي تستخدمها ثم اضغط ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود أدناه في البرنامج النصي.
فبا: أدخل رمزًا فارغًا استنادًا إلى الخلية أعلاه
إدراج فرعي () 'UpdatebyExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I، xNum، xLastRow، xFstRow، xCol، xCount As Long On Error استئناف التالي xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("حدد نطاقًا للاستخدام (عمود واحد ): "،" KuTools For Excel "، xAddress،،،،، 8) إذا كان xRg لا شيء ثم اخرج من التطبيق الفرعي. ScreenUpdating = False xLastRow = xRg (1) .End (xlDown). xRg.Column xCount = xRg.Count Set xRg = xRg (1) For I = xLastRow To xFstRow Step -1 xNum = Cells (I، xCol) If IsNumeric (xNum) And xNum> 0 ثم Rows (I + 1). (xNum) .Insert xCount = xCount + xNum End إذا التالي xRg.Resize (xCount، 1). حدد Application.ScreenUpdating = True End Sub
3. صحافة F5 مفتاح لتشغيل الكود ، وينبثق مربع حوار لتذكيرك بتحديد قائمة للعمل. انظر لقطة الشاشة:
4. انقر OK، تم إدراج الصفوف الفارغة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!