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.
En este artículo, queremos eliminar esos registros, que tienen un nombre de modelo de Target similar y el nombre de modelo deseado.
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.
Para i = LastRow To 12 Step -1
próximo
El bucle For anterior se utiliza para el bucle inverso. Comenzará a circular desde la última fila hasta las 12th hilera.
Si Cells (i, 2) = Cells (i, 3) Entonces
En el código anterior, hemos comparado valores en las celdas de 2Dakota del Norte columna con 3rd columna.
Filas (i) .Eliminar
El código anterior se utiliza para eliminar toda la fila.
Siga a continuación para obtener el código
Option Explicit Sub DeleteMatches () 'Declarando variables Dim LastRow, i As Long' Obteniendo el número de fila de la última celda LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row 'Bucle de la última fila a la 12a fila para i = LastRow a 12 Paso -1 Si Celdas (i, 2) = Celdas (i, 3) Entonces Filas (i). Eliminar Fin Si Siguiente Fin Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico