En este artículo, crearemos una macro para verificar la duplicación y eliminar valores duplicados de dos columnas consecutivas.

Los datos brutos constan de detalles del objetivo, que incluyen el nombre del agente, el nombre del modelo objetivo y el nombre del modelo deseado.

ArrowRawData

En este artículo, queremos eliminar esos registros, que tienen un nombre de modelo de Target similar y el nombre de modelo deseado.

ArrowOutput

Explicación del código

LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row El código anterior se usa para obtener el número de fila de la última celda.

For i = LastRow To 12 Paso -1 Siguiente El bucle For anterior se utiliza para el bucle inverso. Comenzará a circular desde la última fila hasta la 12 ^ th ^ fila.

Si Cells (i, 2) = Cells (i, 3) Entonces En el código anterior, hemos comparado los valores en las celdas de la columna 2 ^ nd ^ con la columna 3 ^ rd ^.

Rows (i) .Delete El código anterior se utiliza para eliminar toda la fila.

Siga a continuación el código

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

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]