Rimozione di valori duplicati confrontando i valori in due colonne consecutive
In questo articolo, creeremo una macro per controllare la duplicazione e rimuovere i valori duplicati da due colonne consecutive.
I dati grezzi sono costituiti dai dettagli della destinazione, che includono il nome dell’agente, il nome del modello di destinazione e il nome del modello desiderato.
In questo articolo, vogliamo eliminare quei record, che hanno un nome di modello di destinazione simile e un nome di modello desiderato.
Spiegazione del codice
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row Il codice precedente viene utilizzato per ottenere il numero di riga dell’ultima cella.
For i = LastRow To 12 Step -1 Next Il ciclo For sopra viene utilizzato per il ciclo inverso. Inizierà il ciclo dall’ultima riga fino alla 12 ^ a ^ riga.
Se Cells (i, 2) = Cells (i, 3) Allora nel codice sopra, abbiamo confrontato i valori nelle celle della 2 ^ nd ^ colonna con la 3 ^ rd ^ colonna.
Righe (i) .Delete Il codice precedente viene utilizzato per eliminare l’intera riga.
Segui sotto per il codice
Option Explicit Sub DeleteMatches() 'Declaring variables Dim LastRow, i As Long 'Getting the row number of last cell LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Looping from last row to 12th row For i = LastRow To 12 Step -1 If Cells(i, 2) = Cells(i, 3) Then Rows(i).Delete End If Next End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook e Facebook.
Ci piacerebbe sentire la tua opinione, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici a [email protected]