Pytanie : Makro- wszystkie rząd pod the ostatni komórka dane

The macro I próbować scroll the rząd pod the ostatni komórka z dane w szpaltowy B, i wtedy jasny wszystkie the rząd od ten punkt puszek the dno.

For przykład, jeżeli the ostatni wartość być w rząd 15, ono rozjaśniać wszystkie the zawartość w wszystkie the kolumna od rząd 16 the ostatni rząd w the spreadsheet.

Thanks! 
(1):
2:
3:
4:
5:
6:
7:

Sheets ("Notpretty Actuals"). Wybiórka
    Pasmo ("B4"). Wybiórka
    Selection.End (xlDown). Wybiórka
    ActiveCell.Offset ((1), (0)). Rząd ("(1): 64732") .EntireRow.Select
    ActiveCell.Offset ((1), (0)). Pasmo ("A1"). Aktywować
    Selection.ClearContents
    Rozciągać się ("A1: J1"). Wybiórka

Odpowiedź : Makro- wszystkie rząd pod the ostatni komórka dane

Ten kod zabijać the rząd szybko bez looping

Otucha

Dave
(1):
2:
3:
4:
5:
6:
7:

Okręt podwodny Zwłoki ()
    Ciemnawy rng1 Pasmo
    Prześcieradło ("Prześcieradło Actuals"). Wybiórka
    Set rng1 = Komórka (Rows.Count, "B"). Końcówka (xlUp). Odsadzka ((1), (0))
    Set rng1 = Pasmo (rng1, rng1.End (xlDown))
    rng1.EntireRow.ClearContents
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us