كيف تنتقل إلى أول صف فارغ أو آخر صف فارغ في Excel؟
من المُستهلك للوقت أن تمرّر يدويًّا للوصول إلى أول صف فارغ أو آخر صف فارغ أثناء العمل على ورقة عمل ضخمة. في هذه المقالة، أقدّم لك بعض الحيل الذكية للانتقال بسرعة إلى أول صف فارغ أو آخر صف فارغ في Excel.
الانتقال إلى أول صف فارغ أو آخر صف فارغ باستخدام VBA
الانتقال إلى آخر صف فارغ أو عمود فارغ باستخدام أداة الصف الأخير Select
الانتقال إلى أول صف فارغ أو آخر صف فارغ باستخدام VBA
فيما يلي نص VBA الذي يساعدك على الانتقال بسرعة إلى أول صف فارغ أو آخر صف فارغ في ورقة العمل النشطة. يُرجى اتباع الخطوات أدناه.
1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications. انظر لقطة الشاشة:
2. بعد ذلك، انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق الكود أدناه في النص البرمجي. انظر لقطة الشاشة:
VBA: الانتقال إلى أول صف فارغ.
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 |
 |
3. اضغطF5 لتشغيل الكود، وستظهر نافذة منبثقة لتذكيرك باختيار نطاق للعمل عليه. انظر لقطة الشاشة:
4. انقر فوقموافق. ستظهر نافذة منبثقة لتذكيرك بمراجع الخلية الخاصة بأول صف فارغ، كما في لقطة الشاشة التالية:
5. انقر بشكل متكرر علىموافقلإغلاق نافذةMicrosoft Excel. بعد ذلك، انتقل إلى مربعالاسم، واكتب فيه A2، ثم اضغط مفتاحEnter لتنتقل تلقائيًا إلى أول صف فارغ. انظر لقطة الشاشة:
تلميح:إذا كنت ترغب في الانتقال إلى آخر صف فارغ، يُرجى استخدام كود VBA أدناه. بعد الضغط على مفتاحF5، سيذهب المؤشر مباشرةً إلى آخر صف فارغ.
VBA: الانتقال إلى آخر صف فارغ
Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Subملاحظة: سيقوم هذا الكود باختيار آخر خلية فارغة في العمود A. ولتحديد آخر خلية فارغة في عمود آخر، غيّر الرقم 1 في الكودCells(Rows.Count, 1) إلى رقم العمود المطلوب.
الانتقال إلى آخر صف فارغ أو عمود فارغ باستخدام أداة Select الصف الأخير
إذا كنت ترغب في الانتقال بسرعة إلى آخر صف فارغ أو عمود فارغ، يمكنك استخدام أداةKutools لـ Excel’s الصف الأخيرأوالعمود الأخير utility. وباستخدامها، يمكنك الانتقال فورًا إلى آخر خلية غير فارغة في الصف أو العمود الأخير بورقة العمل الحالية، لتكون الخلية التالية هي آخر صف فارغ أو آخر عمود فارغ.
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
انقر فوقKutools > تحديد > تحديد الخلية الأخيرة > الصف الأخير / العمود الأخير. انظر لقطة الشاشة:
بعد ذلك، سيتم تحديد آخر خلية غير فارغة في الصف الأخير (أو العمود الأخير). ما عليك سوى الضغط على مفتاح السهم لأسفل (أو مفتاح السهم لليمين) للانتقال مباشرةً إلى أول صف فارغ بعد النهاية (أو أول عمود فارغ بعد النهاية).
مقالات ذات صلة
- كيفية التكرار عبر الصفوف حتى الخلية الفارغة في عمود Excel؟
- كيفية العد مع تجاهل القيم الصفرية أو الخلايا الفارغة في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل