カラム内の重複をチェック
この記事では、重複する値を強調表示するマクロを作成しました。
生データはさまざまな車の名前で構成されています。重複するエントリを強調表示します。
「重複を強調表示」ボタンを押してマクロを実行し、重複するエントリを強調表示します。
ロジックの説明
重複するエントリを強調表示するために、「Check_Dups」マクロを作成しました。それらは赤い色で強調表示されます。マクロでは、特定のエントリの数をチェックします。 1より大きい場合、データが強調表示されます。
コードについては以下に従ってください
Option Explicit
Sub Check_Dups()
'Declaring variables
Dim Cell As Variant
Dim Source As Range
'Initializing source range
Set Source = Range("A9:A24")
'Removing any previous formatting from the source
Source.Interior.Color = RGB(221, 235, 247)
'Looping through each cell in the source range
For Each Cell In Source
'Checking whether value in cell already exist in the source range
If Application.WorksheetFunction.CountIf(Source, Cell) > 1 Then
'Highlighting duplicate values in red color
Cell.Interior.Color = RGB(255, 0, 0)
End If
Next
End Sub
このブログが気に入ったら、FacebookやFacebookで友達と共有してください。
皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください