كيف يمكنك تحديد الصف الأخير أو العمود الذي يحتوي على بيانات في Excel؟
في ورقة عمل كبيرة، إذا أردت تحديد الصف الأخير أو العمود الذي يحتوي على قيم بسرعة وسهولة، يمكنك ببساطة سحب شريط التمرير للعثور عليه. لكن هذه الطريقة قد تصبح مرهقة إذا كانت ورقة العمل تحتوي على آلاف صفوف البيانات. في هذه المقالة، سأعرض بعض أكواد VBA المفيدة التي ستساعدك على إنجاز هذه المهمة بكفاءة.
العثور على الصف الأخير أو العمود الذي يحتوي على بيانات باستخدام كود VBA
العثور على الصف الأخير أو العمود الذي يحتوي على بيانات وتحديده باستخدام Kutools لـ Excel
العثور على الصف الأخير أو العمود الذي يحتوي على بيانات باستخدام كود VBA
قد يلجأ معظم الناس إلى تحديد الخلية الأخيرة بالضغط علىCtrl + End للعثور على آخر صف وآخر عمود، لكن هذا المختصر لن يحدد خلية القيمة بدقة إذا كانت هناك خلايا منسَّقة أسفل نطاق البيانات. لذا، ننصحك باستخدام كود VBA التالي:
1. فعِّل ورقة العمل التي تريد تحديد الصف الأخير أو العمود الذي يحتوي على بيانات فيها.
2. اضغط مع الاستمرار علىALT + F11 لفتحنافذة Microsoft Visual Basic for Applications.
3. بعد ذلك، انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي فينافذة الوحدة النمطية.
كود 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 لتشغيل هذا الكود، وستظهر نافذة منبثقة تُخبرك برقم الصف ضمن النطاق المستخدم. راجع لقطة الشاشة:
5. عند النقر على زرموافق، سيتم عرض رقم الصف الأخير الذي يحتوي على القيم، كما هو موضح في لقطة الشاشة التالية:
ملاحظة:للعثور على العمود الأخير التي تحتوي على بيانات، يُرجى تطبيق هذا الكود:
كود 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 وتحديده، فإن أداتَيتحديد الصف الأخيروتحديد العمود الأخيرمنKutools for Excel يمكن أن تساعدك. يُرجى اتباع الخطوات التالية.
1. إذا أردت العثور على الصف الأخير الذي يحتوي على بيانات وتحديده، فانقر علىKutools > تحديد > تحديد الخلية الأخيرة > الصف الأخير. راجع لقطة الشاشة:
ملاحظة: للعثور على العمود الأخير الذي يحتوي على بيانات وتحديده، يُرجى النقر علىKutools > تحديد > تحديد الخلية الأخيرة > العمود الأخير.
بعد ذلك، يتم تحديد الصف الأخير أو العمود الذي يحتوي على بيانات في ورقة العمل الحالية فورًا.
إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
عرض توضيحي: العثور على الصف الأخير أو العمود الذي يحتوي على بيانات وتحديده باستخدام 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل