maurogsc.eu mauro gamberini

home ==> Excel: come fare per ==> Colonna: eliminare le celle con un determinato valore

Colonna: eliminare le celle con un determinato valore - 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) con un determinato valore(qui: x) da una colonna(qui la colonna A) del Foglio1. Vengono eliminate le celle del Foglio1 che contengono x nel 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 e x con il valore discriminante per l'eliminazione della cella:

Public Sub m()

    'dichiaro le variabili
    Dim lRiga As Long
    Dim sh As Worksheet
    Dim lng As Long
    
    Application.ScreenUpdating = 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 che contengono x
        For lng = lRiga To 1 Step -1
            If .Range("A" & lng).Value = "x" 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