كيفيه إيجاد اخر صف مستخدم فى شيت الاكسيل

ايجاد رقم أخر صف لعمود به بيانات فى شيت الاكسيل

نستطيع إيجاد أخر رقم لصف به بيانات عن طريق الماكرو ببرنامج الاكسيل.

حيث نستخدم خاصية row الخاصة بالخلية وذلك كما بالماكرو التالى:

Sub GetLastRowOfAColumn()

    'إيجاد أخر صف به بيانات في عمود

    '

    'في هذا المثال يقوم البرنامج بإيجاد أخر صف به بيانات بعمود

    'A

   

    Dim The_Last_Row As Long

   

    With ActiveSheet

        The_Last_Row = .Cells(.Rows.Count, "A").End(xlUp).Row

    End With

   

    MsgBox "أخر صف بالعمود" & vbNewLine & vbNewLine & _

        "A" & vbNewLine & _

        "هو " & vbNewLine & _

        vbNewLine & The_Last_Row

End Sub

نتيجة تنفيذ الماكرو: