Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية العثور على الصف أو العمود الأخير الذي يحتوي على بيانات في Excel؟

Author Xiaoyang Last modified

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

العثور على الصف أو العمود الأخير الذي يحتوي على بيانات باستخدام كود VBA
العثور على الصف أو العمود الأخير الذي يحتوي على بيانات وتحديده باستخدام Kutools لـ Excel

العثور على الصف أو العمود الأخير الذي يحتوي على بيانات باستخدام كود VBA

قد يفكر معظمنا في تحديد الخلية الأخيرة بالضغط على مفاتيح Ctrl + End للعثور على الصف والعمود الأخيرين، ولكن هذا الاختصار لن يحدد الخلية ذات القيمة الدقيقة إذا كانت هناك بعض الخلايا التي تحتوي على تنسيق أسفل نطاق البيانات. لذلك هنا، يرجى استخدام الكود التالي لـ VBA:

1. قم بتفعيل ورقة العمل التي تريد تحديد الصف أو العمود الأخير بها والذي يحتوي على بيانات.

2. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: العثور على الصف الأخير الذي يحتوي على بيانات

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

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

A screenshot of a pop-up box showing the last row number of the used range

5. استمر بالنقر فوق زر موافق، وهذه المرة سيتم عرض رقم الصف الأخير الذي يحتوي على قيم كما هو موضح في لقطة الشاشة التالية:

A screenshot displaying the last row number with values

ملاحظة: للعثور على العمود الأخير الذي يحتوي على بيانات، يرجى تطبيق هذا الكود:

كود VBA: العثور على العمود الأخير الذي يحتوي على بيانات

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

العثور على الصف أو العمود الأخير الذي يحتوي على بيانات وتحديده باستخدام Kutools لـ Excel

إذا كنت ترغب في العثور مباشرة على الصف أو العمود الأخير الذي يحتوي على بيانات في Excel، يمكن أن تساعدك أدوات Select Last Row وSelect Last Column من Kutools لـ Excel. يرجى القيام بما يلي.

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

1. إذا كنت ترغب في العثور على الصف الأخير الذي يحتوي على بيانات وتحديده، يرجى النقر فوق Kutools > تحديد > تحديد الخلية الأخيرة > الصف الأخير. انظر إلى لقطة الشاشة:

A screenshot of the Kutools tab on the Ribbon, showing how to select the last row with data

ملاحظة: للعثور على العمود الأخير الذي يحتوي على بيانات وتحديده، يرجى النقر فوق Kutools > تحديد > تحديد الخلية الأخيرة > العمود الأخير.

A screenshot of the Kutools tab on the Ribbon, showing how to select the last column with data

ثم يتم العثور على الصف أو العمود الأخير الذي يحتوي على بيانات في ورقة العمل الحالية وتحديده فورًا.

A screenshot of the Excel worksheet indicating the last row and last column with data

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

عرض توضيحي: العثور على الصف أو العمود الأخير الذي يحتوي على بيانات وتحديده باستخدام Kutools لـ Excel

Kutools لـ Excel: أكثر من 300 أدوات عملية في متناول يدك! استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! قم بالتنزيل الآن!

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

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد
استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

عزز مهاراتك في 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 Tabs PowerPoint
  • حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
  • مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
  • الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
  • تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد