Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2067|回复: 3

[已解决]如何根据项目判断名次是否有重复

[复制链接]
发表于 2012-6-10 12:55 | 显示全部楼层 |阅读模式
重复名次提示.rar (17.46 KB, 下载次数: 20)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-6-10 13:30 | 显示全部楼层    本楼为最佳答案   
Private Sub CommandButton4_Click()
    Dim BRR()
    ARR = Sheets(3).Range("A2:H" & Sheets(3).Range("A65536").End(3).Row)
    Set d = CreateObject("scripting.dictionary")
    For I = 1 To UBound(ARR)
        If ARR(I, 1) = ComboBox2.Value And ARR(I, 8) <> "" Then
        If Not d.exists(ARR(I, 1) & "|" & ARR(I, 8)) Then
            d.Add ARR(I, 1) & "|" & ARR(I, 8), ""
        Else
            K = K + 1
            ReDim Preserve BRR(1 To K)
            BRR(K) = ARR(I, 8)
        End If
        End If
    Next
    If K = "" Then MsgBox " 没有重复名次!": Exit Sub
    MsgBox "名次: " & Join(BRR, ",") & " 有重复!"
End Sub
回复

使用道具 举报

发表于 2012-6-10 13:33 | 显示全部楼层
本帖最后由 zjdh 于 2012-6-10 13:34 编辑

怎么这么卡!附件传不上,等会儿再说。
回复

使用道具 举报

发表于 2012-6-10 13:59 | 显示全部楼层
重复名次提示.rar (18.91 KB, 下载次数: 2)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 22:59 , Processed in 0.856515 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表