Frage : Makro zur Art durch Columnund Löschung-freie Räume


Ich versuche, „das Steigen“ durch Spalte C. zu sortieren und sobald sie sortiert wird, gehe zur letzten Reihe in C und lösche alle Reihen unter ihm. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

VorA1_SortbyAcctandDeleteBlanks ()

    Strecke („A1“). Auserwählt
    Selection.Sort Key1: =Range („C2“), Order1: =xlAscending, Überschrift: =xlGuess, _
        OrderCustom: =1, MatchCase: =False, Lagebestimmung: =xlTopToBottom
    Strecke („C1“). Auserwählt
    Selection.End (xlDown). Auserwählt
    ActiveCell.Offset (1, 0) .EntireRow.Select
    ActiveCell.Offset (1, 0). Strecke („A1“). Aktivieren
    Selection.Clear
    Strecke („A1“). Auserwählt
Enden-Unterseeboot

Antwort : Makro zur Art durch Columnund Löschung-freie Räume

Diesen Code versuchen
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Sub removextras ()
Lastc als lang verdunkeln
Lastrow als lang verdunkeln
lastc = Strecke („C“ u. Rows.Count). Ende (xlUp). Reihe
lastrow = ActiveSheet.UsedRange.Rows.Count
Wenn lastc <> lastrow dann
Reihen (lastc + 1 u. „: “ u. lastrow). Löschung
Sonst
Beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us