如题所述
Function cs(a As String)
b = Application.Substitute(Application.Substitute(a, " ", "|"), Chr(10), "|")
c = Split(b, "|")
For i = 0 To UBound(c)
n = 0
For j = 0 To UBound(c)
If c(i) = c(j) Then n = n + 1
Next
If n > 1 Then
d = Split(cs, "|")
l = 0
For k = 0 To UBound(d)
If c(i) = d(k) Then l = l + 1
Next
If l = 0 Then cs = cs & "|" & c(i)
End If
Next
cs = Mid(cs, 2)
End Function
温馨提示:答案为网友推荐,仅供参考
第1个回答 2021-03-26
复制A1,粘贴到B1。选择B1,分列,分隔符号,勾选 空格,完成。
将分列部分选择后,复制,转置,假设是C列。删除原来横向分列数据。
选择C列,删除重复值。
在D1中输入或复制粘贴下列公式
=(LEN(" "&A1&" ")-LEN(SUBSTITUTE(" "&A1&" "," "&C1&" ",)))/LEN(" "&C1&" ")
下拉填充
筛选D列结果大于1的即为重复的。
将分列部分选择后,复制,转置,假设是C列。删除原来横向分列数据。
选择C列,删除重复值。
在D1中输入或复制粘贴下列公式
=(LEN(" "&A1&" ")-LEN(SUBSTITUTE(" "&A1&" "," "&C1&" ",)))/LEN(" "&C1&" ")
下拉填充
筛选D列结果大于1的即为重复的。
第2个回答 2021-03-26
没看明白,把问题作为内容(主题一定要包含“excel”,本人以此为依据辨别非垃圾游舰,以免误删),excel样表文件(尽量详细说明现状和目标效果)作为附件发到一流3油香:yqch134帮你看下