🔄
HighlightDuplicateValues
データ処理選択範囲内の重複する値のセルをハイライト表示します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： チェックしたいセル範囲を選択してから HighlightDuplicateValues を実行します
💻 VBAコード
' HighlightDuplicateValues
' -----------------
' Macro Name: HighlightDuplicateValues
' Description: 選択範囲内の重複する値のセルをハイライト表示します
' Parameters: なし
' Returns: なし
' Usage: チェックしたいセル範囲を選択してから HighlightDuplicateValues を実行します
' -----------------
Sub HighlightDuplicateValues()
On Error GoTo ErrorHandler
Dim rng As Range
Dim cell As Range
Dim checkCell As Range
Dim highlightCount As Long
If TypeName(Selection) <> "Range" Then
MsgBox "セル範囲を選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set rng = Selection
highlightCount = 0
rng.Interior.ColorIndex = xlNone
For Each cell In rng
If Not IsEmpty(cell) Then
For Each checkCell In rng
If checkCell.Address <> cell.Address And checkCell.Value = cell.Value Then
If cell.Interior.ColorIndex = xlNone Then
cell.Interior.Color = RGB(255, 153, 153)
highlightCount = highlightCount + 1
End If
Exit For
End If
Next checkCell
End If
Next cell
MsgBox highlightCount & " セルの重複値をハイライトしました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub