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 del target, 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 del modello di destinazione simile e il nome del modello desiderato.
Spiegazione del codice
LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Il codice sopra viene utilizzato per ottenere il numero di riga dell'ultima cella.
Per i = LastRow To 12 Step -1
Prossimo
Il precedente ciclo For viene utilizzato per il ciclo inverso. Inizierà il ciclo dall'ultima riga fino al 12ns riga.
Se Cells(i, 2) = Cells(i, 3) Allora
Nel codice sopra, abbiamo confrontato i valori nelle celle di 2ns colonna con 3rd colonna.
Righe(i).Elimina
Il codice sopra viene utilizzato per eliminare l'intera riga.
Si prega di seguire sotto per il codice
Option Explicit Sub DeleteMatches() 'Dichiarazione delle variabili Dim LastRow, i As Long 'Ottenimento del numero di riga dell'ultima cella LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Looping dall'ultima riga alla 12a riga For i = LastRow a 12 Step -1 If Cells(i, 2) = Cells(i, 3) Then Rows(i). Elimina End If Next End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica