Questione : Macro alla specie dagli spazii in bianco di cancellazione e della Column


Sto provando a fascicolare “l'ascensione„ dalla colonna C. ed una volta che è fascicolata, vado all'ultima fila in C e cancello tutte le file sotto esso. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

A1_SortbyAcctandDeleteBlanks secondari ()

    Gamma (“A1„). Prescelto
    Selection.Sort Key1: =Range (“C2„), Order1: =xlAscending, intestazione: =xlGuess, _
        OrderCustom: =1, MatchCase: =False, orientamento: =xlTopToBottom
    Gamma (“C1„). Prescelto
    Selection.End (xlDown). Prescelto
    ActiveCell.Offset (1, 0) .EntireRow.Select
    ActiveCell.Offset (1, 0). Gamma (“A1„). Attivare
    Selection.Clear
    Gamma (“A1„). Prescelto
Sommergibile dell'estremità

Risposta : Macro alla specie dagli spazii in bianco di cancellazione e della Column

Provare questo codice
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Sub i removextras ()
Oscurare il lastc come lungamente
Oscurare il lastrow come lungamente
lastc = gamma (“C„ & Rows.Count). Estremità (xlUp). Fila
lastrow = ActiveSheet.UsedRange.Rows.Count
Se lastrow <> del lastc allora
File (lastc + 1 & “: „ & lastrow). Cancellazione
Altrimenti
Concluder se
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us