اگر در یک کاربرگ کار می کنید، می دانید که می توانید Ctrl+End را فشار دهید تا به آخرین سلول در کاربرگ بروید. میانبر سلولی را انتخاب می کند که نشان دهنده تقاطع آخرین ستون حاوی داده و آخرین ردیف حاوی داده است. بنابراین، اگر آخرین ستونی که در آن داده دارید، ستون F، و آخرین ردیفی که در آن داده دارید، ردیف 27 باشد، Ctrl+End سلول F27 را انتخاب می کند.
برای انجام این کار از یک ماکرو، از یک دستور بسیار ساده استفاده می کنید، همانطور که در اینجا نشان داده شده است:
Sub FindLast1()
ActiveCell.SpecialCells(xlLastCell).Select
End Sub
از نظر عملکردی مانند فشار دادن Ctrl+End است . با این حال (و این یک مشکل بزرگ است)، اکسل به صورت پویا پیگیری نمی کند که کدام ردیف ها و ستون ها آخرین مورد استفاده در یک کاربرگ هستند. به عنوان مثال، فرض کنید که یک ورک بوک را باز می کنید، Ctrl+End را فشار می دهید و به سلول F27 منتقل می شوید. اگر سه سطر و یک ستون را حذف کنید، انتظار دارید که Ctrl+End شما را به سلول E24 ببرد. این نیست همچنان شما را به سلول F27 می برد تا زمانی که ورک بوک را ذخیره کنید و دوباره آن را باز کنید.
همین مشکل روی کد ماکرو نشان داده شده در ماکرو FindLast1 تأثیر می گذارد. بدون در نظر گرفتن اینکه کدام ستون ها یا ردیف ها را در جلسه فعلی حذف کرده اید، شما را به "بالاترین" سلول می برد.
چیزی که لازم است راهی برای بازنشانی نشانگر «آخرین سلول» است، درست مثل اینکه ورک بوک را ذخیره کرده و دوباره باز کرده باشید. هیچ دستور ماکرو ذاتی وجود ندارد که این کار را انجام دهد، اما راهی وجود دارد که اکسل را مجبور به تنظیم مجدد کند. تنها کاری که باید انجام دهید این است که ماکرو را به صورت زیر تنظیم کنید:
Sub FindLast2()
x = ActiveSheet.UsedRange.Rows.Count
ActiveCell.SpecialCells(xlLastCell).Select
End Sub
این ماکرو همیشه شما را به سلول مناسب می برد - همانطور که انتظار دارید Ctrl+End همیشه کار کند. این کار می کند زیرا ظاهرا اکسل، زمانی که خاصیت Count را برای تعداد ردیف های کاربرگ محاسبه می کند، همیشه نشانگر "آخرین سلول" را بازنشانی می کند. همچنین می توانید به شیوه ای متفاوت به شی UsedRange تکیه کنید:
Sub FindLast3()
ActiveSheet.UsedRange.SpecialCells(xlLastCell).Select
End Sub
نتیجه، دوباره، این است که آخرین سلول مورد نظر انتخاب می شود.
