maurogsc.eu
mauro gamberini


home ==> Excel: come fare per ==> Colonna: eliminare le celle vuote

Colonna: eliminare le celle vuote - VBA

NOTA. La soluzione ed il codice sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dal codice o dalla soluzione proposta se usati impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.

1 - Eliminare le celle(non la riga) vuote da una colonna(qui la colonna A) del Foglio1. Vengono eliminate le celle vuote del Foglio1 relative al Range A1:An, dove n è l'ultima cella con un valore nella colonna. Sostituire Foglio1 con il nome del vostro foglio,  il riferimento alla colonna A con il riferimento alla colonna da controllare:

Public Sub m()

    'dichiaro le variabili
    Dim lRiga As Long
    Dim sh As Worksheet
    Dim lng As Long

    Application.ScreenUpadating = False

    'metto un riferimento al foglio(qui Foglio1)
    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh
        'trovo l'ultima riga della colonna A con valori
        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
        'ciclo eliminando le celle vuote 
        For lng = lRiga To 1 Step -1
            If Len(.Range("A" & lng).Value) = 0 Then
                .Range("A" & lng).Delete Shift:=xlUp
            End If
        Next
    End With
    
    Application.ScreenUpdating = True
    
    'Set a Nothing della variabile oggetto
    Set sh = Nothing
    
End Sub

Per ulteriori informazioni su Microsoft Excel ed il suo Visual Basic, utilizzate questo forum:
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads


Ultimo aggiornamento di questa pagina: 16/11/2010 - mauro gamberini