この記事では、重複をチェックし、2つの連続する列から重複する値を削除するマクロを作成します。

生データは、エージェント名、ターゲットモデル名、目的のモデル名などのターゲットの詳細で構成されます。

ArrowRawData

この記事では、ターゲットモデル名と目的のモデル名が類似しているレコードを削除します。

ArrowOutput

コードの説明

LastRow = ActiveCell.SpecialCells（xlCellTypeLastCell）.Row上記のコードは、最後のセルの行番号を取得するために使用されます。

For i = LastRow To12ステップ-1次へ上記のForループは逆ループに使用されます。最後の行から12 ^番目の行までループを開始します。

Cells（i、2）= Cells（i、3）の場合上記のコードでは、2 ^ nd ^列と3 ^ rd ^列のセルの値を比較しています。

Rows（i）.Delete上記のコードは、行全体を削除するために使用されます。

コードについては以下に従ってください

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

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください