Dans cet article, nous allons créer une macro pour vérifier la duplication et supprimer les valeurs en double de deux colonnes consécutives.

Les données brutes se composent des détails de la cible, qui incluent le nom de l’agent, le nom du modèle cible et le nom du modèle souhaité.

ArrowRawData

Dans cet article, nous souhaitons supprimer ces enregistrements dont le nom de modèle cible et le nom de modèle souhaité sont similaires.

ArrowOutput

Explication du code

LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row Le code ci-dessus est utilisé pour obtenir le numéro de ligne de la dernière cellule.

For i = LastRow To 12 Step -1 Next La boucle For ci-dessus est utilisée pour le bouclage inverse. Il commencera à boucler de la dernière ligne jusqu’à la 12 ^ e ^ ligne.

Si Cells (i, 2) = Cells (i, 3) Then Dans le code ci-dessus, nous avons comparé les valeurs des cellules de la 2 ^ nd ^ colonne avec la 3 ^ rd ^ colonne.

Rows (i) .Delete Le code ci-dessus est utilisé pour supprimer la ligne entière.

Veuillez suivre ci-dessous pour le code

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 vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]