Cuestión : Macro a la clase por los espacios en blanco de Column y de la cancelación


Estoy intentando clasificar la “ascensión” por la columna C. y una vez que se clasifica, voy a la fila pasada en C y suprimo todas las filas debajo de ella. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

A1_SortbyAcctandDeleteBlanks secundarios ()

    Gama (“A1”). Selecto
    Selection.Sort Key1: =Range (“C2”), Order1: El =xlAscending, jefe: =xlGuess, _
        OrderCustom: =1, MatchCase: =False, orientación: =xlTopToBottom
    Gama (“C1”). Selecto
    Selection.End (xlDown). Selecto
    ActiveCell.Offset (1, 0) .EntireRow.Select
    ActiveCell.Offset (1, 0). Gama (“A1”). Activar
    Selection.Clear
    Gama (“A1”). Selecto
Submarino del extremo

Respuesta : Macro a la clase por los espacios en blanco de Column y de la cancelación

Intentar este código
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Sub los removextras ()
Amortiguar el lastc como de largo
Amortiguar el lastrow como de largo
lastc = gama (“C” y Rows.Count). Extremo (xlUp). Fila
lastrow = ActiveSheet.UsedRange.Rows.Count
Si lastrow <> del lastc entonces
Filas (lastc + 1 y “: ” y lastrow). Cancelación

Terminar si
Terminar el submarino
Otras soluciones  
 
programming4us programming4us