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.

ArrowRawData

In questo articolo, vogliamo eliminare quei record, che hanno un nome di modello di destinazione simile e un nome di modello desiderato.

ArrowOutput

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]