Fråga : Makroen som ska sorteras vid Kolonn och borttagnings, förbigår


Pröva förmiddag I att sortera ”att stiga” förbi kolonnen C. och, när den sorteras, går till jumbon ror i C och tar bort alla ror nedanfört det. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

UnderA1_SortbyAcctandDeleteBlanks ()

    Spänna (”A1”). Välj
    Selection.Sort Key1: =Range (”C2”), Order1: =xlAscending titelrad: =xlGuess _,
        OrderCustom: =1 MatchCase: =False riktning: =xlTopToBottom
    Spänna (”C1”). Välj
    Selection.End (xlDown). Välj
    ActiveCell.Offset (1, 0) .EntireRow.Select
    ActiveCell.Offset (1, 0). Spänna (”A1”). Aktivera
    Selection.Clear
    Spänna (”A1”). Välj
Avsluta suben

Svar : Makroen som ska sorteras vid Kolonn och borttagnings, förbigår

Försök som detta kodifierar
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Underremovextras ()
Dunkel lastc som Long
Dunkel lastrow som Long
lastc = spänner (”C” & Rows.Count). Avsluta (xlUp). Ro
lastrow = ActiveSheet.UsedRange.Rows.Count
Om lastc <> lastrow därefter
Ror (lastc + 1 & ”: ” & lastrow). Borttagnings
Annars
Avsluta om
Avsluta suben
Andra lösningar  
 
programming4us programming4us