Come estrarre record senza criteri tramite VBA

Anonim

In questo articolo, impareremo come estrarre record senza criteri tramite VBA in Microsoft Excel.

Facciamo un esempio per capire come possiamo mettere il filtro e selezionare i criteri e poi intraprendere l'azione richiesta:-

Abbiamo dati nell'intervallo A: colonne G, in cui la colonna A contiene il nome, la colonna b contiene l'indirizzo, la colonna C contiene la città, la regione della colonna D, il paese della colonna E, il numero di telefono della colonna F e la colonna G contiene i criteri.

Vogliamo scrivere la Macro per inserire il filtro e quindi filtrare i dati in base a Non contiene dati nella colonna G e quindi eliminare Non contiene dati. E poi rimuovi il filtro e mostra tutti i dati.

Per estrarre il record con i criteri Not, seguire i passaggi indicati di seguito:

  • Apri la pagina VBA premi il tasto Alt+F11
  • Inserisci un modulo
  • Quindi vai di nuovo al menu Inserisci e fai clic su procedura, dove otterrai la procedura se non sai come dovrebbe essere avviare la macro
  • Scrivi il codice sotto indicato:
Sub Delete_NotEligible() ActiveSheet.Range("$A$1:$G$15").AutoFilter Field:=7, Criteria1:="" Rows("2:12").Select Selection.Delete Shift:=xlUp Range(" B1").Seleziona Selezione.Filtro automatico End Sub 
  • Per eseguire il codice premere il tasto F5 sulla tastiera.
  • I dati verranno filtrati e quindi, in base ai criteri impostati, i dati filtrati verranno eliminati.

Spiegazione del codice:

  • Abbiamo definito l'intervallo di dati dell'intestazione per inserire il filtro con criteri di celle non vuote nella colonna di idoneità
  • Definisci nel codice per selezionare la riga e quindi eliminerà l'intera riga
  • Alla fine apri il filtro

In questo modo possiamo mettere il filtro in base a criteri particolari, e poi cancellare i dati.

Se ti è piaciuto il nostro blog, condividilo con i tuoi amici su Facebook. E puoi anche seguirci su Twitter e Facebook.

Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare, completare o innovare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica