Come eliminare le righe di Excel in base alla data

Per ottenere il massimo da Microsoft Excel , è necessario imparare a utilizzare le macro e programmazione VBA . Come si costruisce fogli di calcolo e riempirli con le informazioni , ci possono essere momenti in cui le informazioni che avete ingresso non è più valido . Ciò è particolarmente vero per le righe di informazioni che sono date da precedenti . Un modo rapido e semplice per eliminare i file di dati in base a date passate è di creare una macro in Excel . Cose che ti serviranno
Microsoft Excel
base Excel Esperienza
Mostra più istruzioni
1

aprire la tua cartella di lavoro in Excel . Se si utilizza Excel 2007 , è necessario visualizzare la scheda " Sviluppo ", se non è già visualizzato. Per fare questo, fare clic sul pulsante "Office" e poi " Opzioni di Excel ". Clicca su " Mostra scheda Sviluppo " e fare clic su " OK ".
2

Creare un nuovo macro . In Excel 2007 , fare clic sulla scheda Developer e quindi " Macro ". Nelle versioni precedenti , fare clic su "Strumenti" nella barra degli strumenti e poi su " Macro ". Assegnare un nome alla macro , " DeleteRowbyDate " e quindi fare clic su " . ; Crea " viene visualizzato l'editor di Visual Basic
3

Copia e incolla il seguente codice nell'editor di Visual Basic tra le righe , Sub DeleteRowbyDate ( ) e End Sub :
.

Dim x As Longfor x = 1 To Cells.SpecialCells ( xlCellTypeLastCell ) . cellule RowDebug.Print ( x , "B") . ValueIf CDate ( Cells ( x , "B" ) ) < CDate ( " 12/29/2010 " ) ThenCells (i, " B ") . EntireRow.deleteEnd IfNext i

Nella riga in cui si dice:" Se CDate ( Cells ( x , " B " ) ) < CDate ( " 12/29/2010 ") Then " , cambiare la data per la scadenza che è un giorno rispetto alla data che si desidera eliminare . Per esempio, se si desidera eliminare tutte le righe precedenti a 1 Gennaio 2009 , allora si avrà la linea diventa :

CDate ( Cells ( x , "B" ) ) < CDate ( " 01/01/09 " ) Poi
4

Chiudere l'editor di Visual Basic . Si salva automaticamente alla macro . Quando si desidera eseguire la macro ed eliminare le righe , tornare a " Macro ", selezionare la macro " DeleteRowsbyDate " e fare clic su "Esegui ".