Excel: macro per l'eliminazione della riga a condizione

Le macro possono essere utilizzate per varie operazioni su fogli di lavoro Excel, come l' eliminazione di righe che soddisfano una particolare condizione. Sebbene non sia necessario, una certa conoscenza dei concetti di programmazione e dei cicli può rivelarsi utile per scrivere una macro in Excel. I macro in Excel per eliminare le righe che soddisfano determinate condizioni possono essere scritti da zero o sviluppati da un codice macro liberamente disponibile. Le macro sono una funzionalità molto utile e possono essere utilizzate per eseguire manipolazioni di dati su fogli di lavoro Excel con un numero elevato di record. I macro in Excel automatizzano il processo rendendo l'attività rapida e priva di errori.

Problema

Ho bisogno di una macro per eliminare le righe quando nessuna delle celle nella riga contiene uno dei due numeri " 103526 " o " 103527 "

Il numero di righe è variabile (max 150) e anche il numero di colonne variabile (max 100).

Qualsiasi aiuto è apprezzato.

Soluzione

La tua condizione mi confonde. Lo sto riformulando.

Se una riga contiene 103526 o 102527 o entrambi, NON eliminare.

Se nessuno dei due numeri è in una riga, cancella.

Ora, mentre si eliminano le righe, mantenere una copia dei dati nel foglio1 su foglio2 in modo che sia possibile copiare i dati in caso di problemi.

I dati sono nei fogli 1, prova questa macro:

 Sottotest () Dim j As Integer, k Integer Dim r As Range, cfind6 As Range, cfind7 As Range Worksheets ("sheet1"). Attiva On Error Riprendi Successivo j = Celle (Rows.Count, "A"). End (xlUp) .Row For k = j A 1 Passo -1 Imposta cfind6 = Rows (k) .Cells.Find (cosa: = 103526, lookat: = xlWhole) Imposta cfind7 = Rows (k) .Cells.Find (cosa: = 103527, lookat: = xlWhole) Se cfind6 non è nulla e cfind7 non è nulla Then Rows (k) .Delete Successivo