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

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

问题：我们在工作中，有时数据有很多，如：我想知道工资表中的人名中有没有重复，或者身份证有没有重复，模拟如下：这里有很多数据我想知道一列中那个数据是重复的

VBA:功能运行会弹出一个选择框，你要用鼠标选择任意一列或输列号，程序会检测这一列中的每一个数据出现的总次数，并输入数字到数据区域的最后一个空白列。方便你的检查与筛选。

代码语言：javascript复制

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

=====效果图=====

运行后弹出一个对话框

惟一一个数据的标记为“1”,两个数据的标记为“2”这样就可以找出重复的数据来了

本代码是本人在工作中用到的代码

=====今天的学习到此====

vba

0 人点赞