|
发表于 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 |
|