Vraag : De macro aan Soort door Kolom en schrapt Spaties


Ik probeer om „het stijgen“ door kolom C. te sorteren en zodra het wordt gesorteerd, ga naar de laatste rij in C en schrap alle rijen onder het. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Sub A1_SortbyAcctandDeleteBlanks ()

    Waaier („A1“). Selecteer
    Selection.Sort Key1: =Range („C2“), Order1: Het =xlAscending, Kopbal: =xlGuess, _
        OrderCustom: =1, MatchCase: =False, Richtlijn: =xlTopToBottom
    Waaier („C1“). Selecteer
    Selection.End (xlDown). Selecteer
    ActiveCell.Offset (1, 0) .EntireRow.Select
    ActiveCell.Offset (1, 0). Waaier („A1“). Activeer
    Selection.Clear
    Waaier („A1“). Selecteer
Beëindig Sub

Antwoord : De macro aan Soort door Kolom en schrapt Spaties

Probeer deze code
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Sub removextras ()
Schemerige lastc zoals lang
Schemerige lastrow zoals lang
lastc = Waaier („C“ & Rows.Count). Eind (xlUp). Rij
lastrow = ActiveSheet.UsedRange.Rows.Count
Als lastc <> lastrow toen
Rijen (lastc + 1 & „: “ & lastrow). Schrap
Anders
Eind als
Sub van het eind
Andere oplossingen  
 
programming4us programming4us