Compattare righe

Salve
non so come fare per compattare il file che allego magari con una macro, in pratica vorrei eliminare tutte le righe che non contengono valori

ciao
in un modulo
Sub elimina()
Application.ScreenUpdating = False
For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 3) = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

federico460, 13/06/2022 22:45:

---

ciao
in un modulo
Sub elimina()
Application.ScreenUpdating = False
For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 3) = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

---

Grazie per la soluzione ma io vorrei no cancellare le righe nulle ma copiare le righe in una colonna adiacente in ordine senza le righe in bianco
Grazie

Ciao Vaiano, hai detto

---

in pratica vorrei eliminare tutte le righe che non contengono valori

---

la macro di Federico che saluto fa effettivamente questo elimina gli spazi vuoti, non hai specificato che volevi un elenco di quei dati in un altra posizione e nemmeno hai specificato la posizione, perche probabile che vengano messi in una colonna che contiene già dei dati

comunque eccoti la macro che copia i dati in un altra posizione



r=1 significa che l'elenco parte dalla riga 1, c=5 vengono inseriti i dati nella colonna 5 = "E" se devi cambiare la colonna o la riga basta inserire i numeri giusti dove vuoi i dati
anche se li vedrai strani perche la colonna 5 non avrà lo stesso formato dei dati della colonna 3="C"

Ciao By Sal (8-D

Ciao
Si può fare anche con una formula
In E2 da trascinare in basso


=SE.ERRORE(INDICE($C$2:$C$1000;AGGREGA(15;6;RIF.RIGA($2:$1000)-1/($C$2:$C$1000<>"");RIF.RIGA($A1)));"")

ciao
eliminare è eliminare eh!

poi alla tua precisazione avrei risposto come Danilo

adoro le formule🤣

Grazie per la soluzione
Comunque il avevo scritto "non so come fare per compattare il file che allego" magari con una macro, in pratica vorrei eliminare tutte le righe che non contengono valori

Ciao Vaiano, non amo fare le polemiche, anzi è contro i miei principi, ma nel tuo messaggio scritto in grassetto manca una parola per capirlo bene

DOVE

Ciao By Sal (8-D

Grazie per il vostro aiuto
ho risolto il problema ma non so come fare per dire che la discussione è terminata
grazie