środa, 21 listopada 2012

Zaznaczenie ostatniego wiesza i kolumny

Ostatni wiersz
Sub Ostatni_Wiersz_Zaznacz()
 Rows(Cells.SpecialCells(xlCellTypeLastCell).Row).Select
 'lub
 Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 1).EntireRow.Select
End Sub

Ostatnia kolumna
Sub Ostatnia_Kolumna_Zaznacz()
 Columns(Cells.SpecialCells(xlCellTypeLastCell).Column).Select
 'lub
 Cells(1, Cells.SpecialCells(xlCellTypeLastCell).Column).EntireColumn.Select
End Sub

Uwaga!
xlCellTypeLastCell można używać zamiennie ze stałą xlLastCell

1 komentarz:

  1. A jak zrobić żeby zaznaczenie było od np A1 do ostatniej napotkanej zajętej komórki?
    coś a'la przycisk ctrl+A tylko poprzez makro?

    Pomoże ktoś?

    OdpowiedzUsuń