Frage : Makro, zum aller Reihen unterhalb der letzten Zelle von Daten zu löschen

Das Makro, das ich versuche zu schreiben, verzeichnet zur Reihe unterhalb der letzten Zelle mit Daten in Spalte B in einer Liste, und dann frei alle Reihen von diesem Punkt unten zur Unterseite.

zum Beispiel, wenn der letzte Wert in Reihe 15 ist, löscht es den ganzen Inhalt in allen Spalten von Reihe 16 zur letzten Reihe im spreadsheet.

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

Sheets („formatierte Wirklichkeiten“). Auserwählt
    Strecke („B4“). Auserwählt
    Selection.End (xlDown). Auserwählt
    ActiveCell.Offset (1, 0). Reihen („1: 64732“) .EntireRow.Select
    ActiveCell.Offset (1, 0). Strecke („A1“). Aktivieren
    Selection.ClearContents
    Strecke („A1: J1“). Auserwählt

Antwort : Makro, zum aller Reihen unterhalb der letzten Zelle von Daten zu löschen

Dieser Code tötet die Reihen schnell, ohne zu schlingen

Beifall

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

Vortötung ()
    Schwaches rng1 als Strecke
    Blätter („formatierte Wirklichkeiten“). Auserwählt
    Einstellen rng1 = Zellen (Rows.Count, „B“). Ende (xlUp). Versatz (1, 0)
    Einstellen rng1 = Strecke (rng1, rng1.End (xlDown))
    rng1.EntireRow.ClearContents
Beenden Unterseeboot
Weitere Lösungen  
 
programming4us programming4us