列出用户表单excel vba中某列中的重复值

Sub ListDuplicateValues()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    Dim duplicateValues As String
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 设置要操作的列范围
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) ' 将"A"替换为实际的列字母
    
    ' 创建字典对象
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 遍历列中的每个单元格
    For Each cell In rng
        ' 如果单元格的值已存在于字典中，则说明是重复值
        If dict.exists(cell.Value) Then
            ' 将重复值添加到字符串中
            duplicateValues = duplicateValues & cell.Value & ", "
        Else
            ' 否则，将单元格的值添加到字典中
            dict.Add cell.Value, 1
        End If
    Next cell
    
    ' 删除字符串末尾的逗号和空格
    duplicateValues = Left(duplicateValues, Len(duplicateValues) - 2)
    
    ' 显示重复值
    MsgBox "重复值: " & duplicateValues
End Sub