如何快速检测重复项

百佳

如何快速检测统一行中的学科是否有相同相？ 化学-5，生物-5，语文-巡视 化学-6，生物-6，语文-1 语文-2，物理-5，化学-7，生物-7 语文-3，化学-8，生物-8 语文-4，物理-6，化学-9，生物-9 语文-5，物理-7，化学-10，生物-10 语文-6，物理-8，化学-11，生物-11 语文-7，物理-9，化学-12，生物-12 语文-8，物理-10，化学-13，生物-13 语文-9，物理-11，化学-14，生物-14 语文-10，物理-12，化学-15，生物-15 　 物理-13，英语-20，数学-巡视 数学-1，英语-11，语文-21 数学-2，英语-12，物理-15，语文-22 数学-3，英语-13，物理-14，语文-23 数学-4，地理-5，语文-24 数学-5，英语-15，物理-16，语文-25 数学-6，化学-16，生物-16，物理-17 数学-7，英语-17，语文-27 数学-8，英语-18，物理-18，语文-28 数学-9，英语-19，数学-19，语文-29 如上一行就出现了2个数学

lrf2003

这样可以吗? V0khpfZm.rar (2.17 KB, 下载次数: 12)

2006-1-10 19:16 上传

点击文件名下载附件
如何快速检测重复项

百佳

不行，因为我的数据不是在不同单元格的， 非常感谢 vClQpZjJ.rar (8.06 KB, 下载次数: 9)

2006-1-10 23:32 上传

点击文件名下载附件
如何快速检测重复项

northwolves

自定义函数:

Function chongfu(ByVal r As Range) As Boolean
Dim x() As String, temp As String, i As Integer, all As New Collection
x = Split(r, "，")
On Error Resume Next
For i = 0 To UBound(x)
temp = Trim(Split(x(i), "-")(0))
all.Add temp, temp
Next
chongfu = (UBound(x) + 1 > all.Count)
End Function

d2=chongfu(c2),下拉