Excel 2003/2013: trovare celle vuote ed eliminarle

[gamma_ray]

Salve, ho un file di excel con circa 60000 indirizzi email, ma ogni tanto ci sono delle righe vuote. Siccome devo assolutamente eliminarle (devo importare il file in un software che non ammette righe vuote, altrimenti mi da errore), volevo sapere se c'era un sistema per individuarle e poi eliminarle tutti in un colpo.
Grazie.

[zsadist]

allora

non sapendo bene colonne eccetera, ipotizzo dalla riga 2 in poi e prendo come cella di riferimento (ovvero che debba per forza contenere qualcosa) la colonna 1
varia queste condizioni per il tuo caso

Codice: Seleziona tutto


Sub EliminaRig()
dim i as integer

x= range("A100000").end(xlup).row

for i = 2 to x
if cells(i,1)="" then
    Rows(i & ":" & i).Select
    Selection.Delete Shift:=xlUp
end if
ext i




[gamma_ray]

Hai ragione, non ho specificato niente...comunque i dati sono tutti nella colonna A e cominciano da A2.
Devo cambiare qualcosa nella tua macro?

[Dylan666]

Io da un sito (ma non ricordo quale) salvai questa procedura

[zsadist]

Hai ragione, non ho specificato niente...comunque i dati sono tutti nella colonna A e cominciano da A2.
Devo cambiare qualcosa nella tua macro?

no, nulla, dovrebbe funzionare, provala

[zsadist]

Io da un sito (ma non ricordo quale) salvai questa procedura

si vero
pensavo volesse fare una macro.. in effetti.. ho sbagliato

[Dylan666]

Io da un sito (ma non ricordo quale) salvai questa procedura

si vero
pensavo volesse fare una macro.. in effetti.. ho sbagliato

Mica è sbagliato, sono due modi di fare la stessa cosa.

[zsadist]

[gamma_ray]

Ringrazio tutti e due ma, senza offesa zsadist, la tua macro non mi funzionava, e non ho approfondito perchè poi ho risolto perfettamente con la soluzione di Dylan.
Riguardo alla tua soluzione Dylan, dopo che scelgo "sposta le celle in alto", di fatto tutte le celle vuote spariscono (quindi non le vedo "spostate in alto" all'inizio della colonna...credo che vada comunque bene così).
Comunque grazie ancora a entrambi.

[zsadist]

ciaoo
chi si offende?

non ti poteva funzionare in quanto era scritta sbagliata
colpa mia che uso l'editor senza verificare

Codice: Seleziona tutto

Sub EliminaRig()
Dim i As Integer

x = Range("A100000").End(xlUp).Row

For i = 2 To x
If Cells(i, 1) = "" Then
    Rows(i & ":" & i).Select
    Selection.Delete Shift:=xlUp
End If
Next i
End Sub

[Dylan666]

Riguardo alla tua soluzione Dylan, dopo che scelgo "sposta le celle in alto", di fatto tutte le celle vuote spariscono (quindi non le vedo "spostate in alto" all'inizio della colonna...credo che vada comunque bene così).

Lo "sposta in alto" è riferito alle celle che restano, non quello che si eliminano.
Se la cella A1 è piena, A2 è vuota e A3 è piena, eliminando A2 al suo interno ci verrà copiato il contenuto di A3, dando l'impressione che la cella si sia spostata "in alto" di una posizione

[gamma_ray]

ok chiaro, grazie di nuovo.

[Anthony47]

Attenzione che il metodo suggerito da Dylan potrebbe portare a scombussolare i record, disallineando cioe' le celle della stessa riga. Come in questo esempio:

Ho evidenziato in blu le "fratture" dovute alla rimozione delle celle vuote e allo scorrimento verso l'alto delle celle sottostanti

La macro di zsadist invece guarda solo il contenuto di colonna A, e cancella l'intera riga che in colonna A e' vuota.
Ciao