maurogsc.eu
|
![]() |
home ==> Excel: come fare per ==> Colonna: eliminare le celle con un determinato valore
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