如题所述
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帮你看下
