Note: The other languages of the website are Google-translated. Back to English

كيف أذهب إلى أول أو آخر صف فارغ في إكسيل؟

يستغرق التمرير والذهاب إلى الصف الأول أو الأخير الفارغ وقتًا طويلاً أثناء العمل على ورقة عمل ضخمة. في هذه المقالة ، أقدم بعض الحيل للانتقال بسرعة إلى الصف الأول أو الأخير الفارغ في Excel.

انتقل إلى الصف الأول أو الأخير الفارغ باستخدام VBA

انتقل إلى آخر صف أو عمود فارغ باستخدام الأداة تحديد الصف الأخيرفكرة جيدة 3


انتقل إلى الصف الأول أو الأخير الفارغ باستخدام VBA

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

1. صحافة ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. انظر لقطة الشاشة:
doc أولا آخر فارغة 1

2. ثم اضغط إدراج > وحدة ولصق الكود أدناه في البرنامج النصي. انظر لقطة الشاشة:

فبا: انتقل إلى أول صف فارغ.

Sub Findfirstblankcell()
'UpdatebyExtendoffice20170712
    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)
    For Each Rng In WorkRng
        If Rng.Value = "" Then
            MsgBox "No Value, in " & Rng.Address
        End If
    Next
End Sub
doc أولا آخر فارغة 2
doc أولا آخر فارغة 3

3. صحافة F5 لتشغيل الكود ، وينبثق مربع حوار لتذكيرك باختيار نطاق للعمل. انظر لقطة الشاشة:
doc أولا آخر فارغة 4

4. انقر OK. ينبثق مربع حوار لتذكيرك بمرجع الخلية للصف الفارغ الأول ، انظر الصورة:
doc أولا آخر فارغة 5

5. انقر OK بشكل متكرر لإغلاق ملف مايكروسوفت إكسل الحوار. ثم انتقل إلى الاسم مربع ، اكتب A2 فيه ، اضغط أدخل مفتاح ، وسوف تذهب إلى أول صف فارغ. انظر لقطة الشاشة:
doc أولا آخر فارغة 6

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

فبا: انتقل إلى آخر صف فارغ

Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

ملاحظة: سيحدد VBA آخر خلية فارغة في العمود A. لتحديد آخر خلية فارغة في عمود آخر ، يرجى تغيير 1 في خلايا الكود (عدد الصفوف ، 1) إلى رقم آخر.


انتقل إلى آخر صف أو عمود فارغ باستخدام الأداة تحديد الصف الأخير

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)

انقر كوتولس > اختار > حدد الخلية الأخيرة > الصف الأخير/العمود الأخير. انظر لقطة الشاشة:

doc أولا آخر فارغة 7

ثم يتم تحديد آخر خلية غير فارغة في الصف الأخير (أو العمود). فقط اضغط على مفتاح السهم لأسفل (أو مفتاح السهم الأيمن) لتنشيط آخر صف (أو عمود) فارغ.


المقالات النسبية


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (3)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
sub selectlastemptyrow () الفرعى
الخلايا (عدد الصفوف ، 1) ، النهاية (xlUp) ، الإزاحة (1 ، 0).
نهاية الفرعية



كيف تجرب هذا على الورقة 2 من الورقة 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
sub selectlastemptyrow () الفرعى
أوراق ("ورقة 2"). خلايا (عدد الصفوف ، 1). النهاية (xlUp). الإزاحة (1 ، 0). حدد
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Ótimo post ، حل مشكلة meu:
Achando a Primeira célula vazia de Determinada coluna de uma planilha.

Sub SelecionaPróximaCélulaVazia ()
الخلايا (عدد الصفوف ، 2) ، النهاية (xlUp) ، الإزاحة (1 ، 0).
نهاية الفرعية

Este VBA selecionará a última célula vazia na coluna B. Para selecionar a última célula vazia em outra coluna، altere 2 no código Cells (Rows.Count، 2) para outro número.
لا توجد تعليقات منشورة هنا حتى الآن
يرجى ترك تعليقاتك باللغة الإنجليزية
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL