Sub LastCellBeforeBlankInColumn()
Range("A1").End(xldown).Select
End Sub
مثال 2 : ماکروی زیر آخرین خانه غیرخالی در ستون A را انتخاب می کند :
Sub LastCellInColumn()
Range("A1048576").End(xlup).Select
End Sub
مثال 3 : ماکروی زیر آخرین خانه غیرخالی در سطر 1 (از خانه A1 به جلوقبل از اولین خانه خالی) را انتخاب می کند :
Sub LastCellBeforeBlankInRow()
Range("A1").End(xlToRight).Select
End Sub
مثال 4 : ماکروی زیر آخرین خانه غیرخالی در سطر 1 را انتخاب می کند :
Sub LastCellInRow()
Range("XFD1").End(xlToLeft).Select
End Sub
یک نکته :
همانطور که می دانید ابزار GoTo Special یک گزینه برای مراجعه به آخرین خانه دارد :
همین کار را می توان با استفاده از ماکرو و با دستور زیر انجام داد :
Range("A1").SpecialCells(xlCellTypeLastCell).Select
0 نظر
تازه ترین ها