Question : Macro à la sorte par des blancs de Column et de suppression

J'essaye d'assortir « monter » par la colonne C. et une fois qu'elle est assortie, vais à la dernière rangée dans C et supprime toutes les rangées au-dessous de lui.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 :

A1_SortbyAcctandDeleteBlanks secondaires () Gamme (« A1 »). Choisi Selection.Sort Key1 : =Range (« C2 »), Order1 : =xlAscending, en-tête : =xlGuess, _ OrderCustom : =1, MatchCase : =False, orientation : =xlTopToBottom Gamme (« C1 »). Choisi Selection.End (xlDown). Choisi ActiveCell.Offset (1, 0) .EntireRow.Select ActiveCell.Offset (1, 0). Gamme (« A1 »). Activer Selection.Clear Gamme (« A1 »). Choisi Sous-marin d'extrémité

Réponse : Macro à la sorte par des blancs de Column et de suppression

Essayer ce code

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 :

Substrater les removextras () Obscurcir le lastc en tant que longtemps Obscurcir le lastrow en tant que longtemps lastc = gamme (« C » et Rows.Count). Extrémité (xlUp). Rangée lastrow = ActiveSheet.UsedRange.Rows.Count Si lastrow <> de lastc alors Rangées (lastc + 1 et « :  » et lastrow). Suppression Autrement Finir si Finir le sous-marin