ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】データに重複があるかどうか調べるマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、データに重複があるかどうか調べるマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200421040310p:plain

 

データに重複があればB列に”重複”の文字を入力します。

 

<マクロ実行後>

f:id:gorilla-strong:20200421040450p:plain

 

動作としては以上です。

 

ソースコード 

Sub main()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To lastrow

If WorksheetFunction.CountIf(Range("A3:A" & lastrow), Cells(i, 1)) > 1 Then
    Cells(i, 2) = "重複"
End If

Next

End Sub

 

以上、ゴリラストロングでした。