تعيين آخرين ستون و آخرين سطر اطلاعات در يك sheet

[ali.alavi]

سلام
مطابق تصوير پيوست ، اطلاعات پراكنده اي در يك sheet داريم .
مي خوايم بدونيم آخرين سطر و ستون مورد استفاده كدومه؟
( طبيعتاً در تصوير پيوست ، سلول e9 كه با رنگ قرمز مشخص شده پاسخ صحيح خواهد بود )
تابعي براي حل اين موضوع مورد نيازه!
ممنون

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[khakzad]

سلام
این فرمول ارایه اس رو وارد کنید:

=address(max(if(a1:d18<>"",row(a1:d18),"")),max(if(a1:d18<>"",column(a1:d18),"")))

محدوده از a118 در نظر گرفته شده. می تونید جایگرین کنید
سوالی بود در خدمتم

[ali.alavi]

جناب خاکزاد با تشکر . تابع خوبی نوشتید اما یک مشکل وجود داره :
ما در این تابع ، خودمون یک محدوده رو برای اعمال تابع در نظر گرفتیم ؛ در حالی که اگه قرار باشه این تابع در یک ماکرو قرار بگیره نمیشه پیش بینی کرد که آیا این محدوده جوابگوی اطلاعات مندرج در sheet های مختلف هست یانه...
از طرف دیگه اگه بخوایم به جهت اطمینان از فراگیر بودن محدوده تابع ، دامنه اون رو بیش از حد گسترش بدیم رم سیستم بیخودی اشغال میشه . مثلاً ممکنه ما در یک sheet تعداد 5000 سطر داشته باشیم اما تابع رو بر روی 500,000 تنظیم کنیم تا مطمئن باشیم که دربرگیرنده همه اطلاعات ما خواهد بود! خوب اینجوری سرعتمون افت می کنه

[Alireza]

جناب خاکزاد با تشکر . تابع خوبی نوشتید اما یک مشکل وجود داره :
ما در این تابع ، خودمون یک محدوده رو برای اعمال تابع در نظر گرفتیم ؛ در حالی که اگه قرار باشه این تابع در یک ماکرو قرار بگیره نمیشه پیش بینی کرد که آیا این محدوده جوابگوی اطلاعات مندرج در sheet های مختلف هست یانه...
از طرف دیگه اگه بخوایم به جهت اطمینان از فراگیر بودن محدوده تابع ، دامنه اون رو بیش از حد گسترش بدیم رم سیستم بیخودی اشغال میشه . مثلاً ممکنه ما در یک sheet تعداد 5000 سطر داشته باشیم اما تابع رو بر روی 500,000 تنظیم کنیم تا مطمئن باشیم که دربرگیرنده همه اطلاعات ما خواهد بود! خوب اینجوری سرعتمون افت می کنه

سلام دوست عزیز مبحث ماکرو با توابع جدا هستند و اگر نیاز به کد نویسی باشه در حلقه For each به راحتی قابل بررسی است .

[ali.alavi]

با تشکر

[generalsamad]

با سلام
از این function نیز میتونید استفاده کنید

Function Last(choice As Long, rng As Range)
    Dim lrw As Long
    Dim lcol As Long

    Select Case choice

    Case 1:
        On Error Resume Next
        Last = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Row
        On Error GoTo 0

    Case 2:
        On Error Resume Next
        Last = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByColumns, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Column
        On Error GoTo 0

    Case 3:
        On Error Resume Next
        lrw = rng.Find(What:="*", _
                       After:=rng.Cells(1), _
                       Lookat:=xlPart, _
                       LookIn:=xlFormulas, _
                       SearchOrder:=xlByRows, _
                       SearchDirection:=xlPrevious, _
                       MatchCase:=False).Row
        On Error GoTo 0

        On Error Resume Next
        lcol = rng.Find(What:="*", _
                        After:=rng.Cells(1), _
                        Lookat:=xlPart, _
                        LookIn:=xlFormulas, _
                        SearchOrder:=xlByColumns, _
                        SearchDirection:=xlPrevious, _
                        MatchCase:=False).Column
        On Error GoTo 0

        On Error Resume Next
        Last = rng.Parent.Cells(lrw, lcol).Address(False, False)
        If Err.Number > 0 Then
            Last = rng.Cells(1).Address(False, False)
            Err.Clear
        End If
        On Error GoTo 0

    End Select
End Function 

این تابع دو پارامتر داره
پارامتر اول:عدد1 شماره آخرین سطر رو بر میگردونه -عدد2 شماره آخرین ستون رو بر میگردونه-عدد3 آدرس آخرین سلول رو بر میگردونه
پارامتر دوم: محدوده مورد نظر رو وارد میکنیم

1-برای شماره آخرین سطر

=Last(1;A:L) 

2-برای شماره آخرین ستون

=Last(2;A:L) 

3-برای آدرس آخرین سلول

=Last(3;A:L) 

فایل ضمیمه گردید

[ali.alavi]

صمد بزرگ با تشکر