Pergunta : Macro à sorte por espaços em branco de Coluna e de supressão


Eu estou tentando classificar a “ascensão” pela coluna C. e uma vez que é classificada, vou à última fileira em C e suprimo de todas as fileiras abaixo dele. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

A1_SortbyAcctandDeleteBlanks secundários ()

    Escala (“A1”). Seleto
    Selection.Sort Key1: =Range (“C2”), Order1: =xlAscending, encabeçamento: =xlGuess, _
        OrderCustom: =1, MatchCase: =False, orientação: =xlTopToBottom
    Escala (“C1”). Seleto
    Selection.End (xlDown). Seleto
    ActiveCell.Offset (1, 0) .EntireRow.Select
    ActiveCell.Offset (1, 0). Escala (“A1”). Ativar
    Selection.Clear
    Escala (“A1”). Seleto
Submarino da extremidade

Resposta : Macro à sorte por espaços em branco de Coluna e de supressão

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

Sub removextras ()
Escurecer o lastc como por muito tempo
Escurecer o lastrow como por muito tempo
lastc = escala (“C” & Rows.Count). Extremidade (xlUp). Fileira
lastrow = ActiveSheet.UsedRange.Rows.Count
Se lastrow <> do lastc então
Fileiras (lastc + 1 & “: ” & lastrow). Supressão
Mais
Terminar se
Terminar o submarino
Outras soluções  
 
programming4us programming4us