ExcelVBA利用字典检查每个数据出现的次数

Sub ck重名()
    Dim myd As Object, myrng As Range
    Set myd = CreateObject("scripting.dictionary")
    col_ABC = "C"
    title_num = 1
    On Error Resume Next
    Set myrng = Application.InputBox(prompt:="请在当前工作表中选择一列", title:="哆哆提示", default:=D, Type:=8)
    On Error GoTo 0
    If myrng Is Nothing Then MsgBox "你按了取消，将退出程序": Exit Sub
    col_num = myrng.Column
    With ActiveSheet
        LastRow = .Cells.Find("*", , , , 1, 2).Row
        LastCol = .Cells.Find("*", , , , 2, 2).Column + 1
        Debug.Print LastRow, LastCol
        arr = .UsedRange.Value
        For i = title_num + 1 To LastRow
            s = arr(i, col_num)
            If s <> "" Then
                myd(s) = myd(s) + 1
            End If
        Next i
        For i = title_num + 1 To LastRow
            s = arr(i, col_num)
                .Cells(i, LastCol) = myd(s)
        Next i
    End With
'    MsgBox "检查完成"
End Sub