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

في ورقة عمل كبيرة، إذا كنت ترغب في تحديد الصف أو العمود الأخير الذي يحتوي على قيم بسرعة وسهولة، يمكنك فقط سحب شريط التمرير للعثور عليه. لكن سيكون الأمر مؤلمًا إذا كان هناك آلاف الصفوف من البيانات في ورقة العمل الخاصة بك. في هذه المقالة، سأتحدث عن بعض أكواد 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 لتشغيل هذا الكود، وسيظهر مربع منبثق لإخبارك برقم الصف الخاص بالنطاق المستخدم. انظر إلى لقطة الشاشة:

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، يمكن أن تساعدك أدوات Select Last Row وSelect Last Column من Kutools لـ Excel. يرجى القيام بما يلي.

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

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

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

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