マクロ：同じ列の重複したデータの値を変更したい

Question

A列の2行目から
1
2
3
4
2
2
と値が入力されていた場合に、

1
2
3
4
2a
2b

のように重複しない値に変更したいのですが、方法が分からず助けて欲しいです????
重複したセルに色をつけるを参考にもしてみましたが、値そのものを変更するにはどうしたら良いか…

Const ID_COLUM As Integer = "1"

Dim startRange As Range
Dim endRow As Double
Dim endRange As Range

Set startRange = WorkSheets("シート１").Range("A2")
endRow = startRange.End(xlDown).Row
Set endRange = WorkSheets("シート１").Cells(endRow, ID_COLUM)

Dim i As Long
For i = startRange To endRange

'A列をチェック
'重複したセル（2つ目以降）にa, b, c...と値を追加して差別化したい

Next i

現状のコードは上記のような感じです。
For文でチェックしようかなと試していますが他に良い方法があれば教えていただきたいです。

どうやれば思った通りの処理にできるか、
またはこのサイトが参考になるよなどあれば教えていただきたいです????

お手数ですが何卒よろしくお願いいたします！

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    
    Const ID_COLUM As Long = 1

    Dim ws As Worksheet
    Set ws = Worksheets("シート１")
    
    Dim dic 'As Scripting.Dictionary
    Set dic = CreateObject("Scripting.Dictionary")
    
    Dim startRow As Long, endRow As Long
    startRow = 2
    endRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    
    
    Dim i As Long, v As String
    For i = startRow To endRow
        v = ws.Cells(i, ID_COLUM).Value
        If dic.Exists(v) Then
            ws.Cells(i, ID_COLUM).Value = v & LCase(Split(ws.Cells(1, dic(v)).Address, "$")(1))
        End If
        dic(v) = dic(v) + 1
    Next i
    
End Sub

Comments

[Jonny_dayo]

え、天才…？
思ってた通りの挙動になりすぎて驚きを隠せないです…！
めちゃくちゃ感激！！嬉しいです！！！
本当にありがとうございます！！！！！！

Answer 2

すみません。既に解決済みですが、

jinojiさんのスクリプトを実行すると、以下のようになります。

左側が、スクリプト実行前
右側が、スクリプト実行後です。
このような結果を期待されていますか？

Comments

[Jonny_dayo]

わお！！確かに！！
基本的にはA列には数字しか入らないので大丈夫かな〜と思ってます！
本番用のシートで確認もしてみましたが多分今のところは大丈夫そうで…
すでにアルファベットが付与されている数字がA列にない限りはこの現象は起きないと思ってゆっくりお布団の準備をしていたのですが、このままだと何かまずいことになりますでしょうか…？????
わざわざリスク提示してもらえるのばか嬉しいですありがとうございます????????

[jinoji]

なるほど、そのケースだと確かにそうなりますね。
どうしたいかによりますが、たとえば
v = Val(ws.Cells(i, ID_COLUM).Value)
と変えるとか、何かしらの工夫がいるかもしれませんね。

[tatsu99]

>基本的にはA列には数字しか入らないので大丈夫かな〜と思ってます！
そうであれば、問題ありません。A列が数字だけであるという前提が明記されていなかったので、
念のため、質問した次第です。

[Jonny_dayo]

なるほどー！！！
おふたりともありがとうございます????????
こちらも要件不足ですみませんでした、、
無事に完了できました！ありがとうございます！！