Excel2000VBA 選択セルの値が同列に重複が有るか調べる

Excel2000VBA 選択セルの値が同列に重複が有るか調べる。

ヤフオクで取引連絡の時、「はじめまして」と挨拶を書いてしまうのですが、実際2回目の取引だった事が何回か有り、取引相手様に失礼かも知れないので過去に取引が有ったか調べるマクロ作った。

記入項目

項目のID（取引相手のID)を利用してH列から重複を調べるマクロ（選択列）

Sub 列内で重複個数を調べる()
'選択しているセルの値と同じものが列全体に何個あるか調べる
'
Dim mykey As String     '調べる値
Dim myCol As Long       '調べる範囲（列番号）
Dim xRange As Range
Dim counter As Integer  'カウンター
Dim selCol As Range

'選択しているセルの値をmykeyに代入
    mykey = Selection.Value
'調べる列、選択しているセルの列
    myCol = Selection.Column
'列全体を選択
    Columns(myCol).Select
    Set selCol = Selection
'選択列から同じ値があるか調べ、個数を表示する
    For Each xRange In selCol
        If xRange.Value = mykey Then
        counter = counter + 1 '
        xRange.Interior.ColorIndex = 6   '該当するセルに背景色を付ける
        End If
    Next
'重複が有ったか？
    If counter - 1 = 0 Then
        MsgBox mykey & "の重複は有りません"
        Else: MsgBox mykey & " は" & counter & "個有りました"
    End If
Set selCol = Nothing
End Sub

 

タグ：Excel2000 VBA