EXCEL VBA的代码,去除重复?

发布网友发布时间：2022-04-29 20:28

共2个回答

热心网友时间：2022-06-22 10:00

Function 去重(a As String)
b = Split(a, " ")
For Each cel In b
n = Split(去重, " ")
m = 0
For i = 0 To UBound(n)
If cel = n(i) Then m = m + 1
Next
If m = 0 Then 去重 = 去重 & " " & cel
Next
End Function

追问老师,这个代码在第一个号前面多了一个空格,变成了2个空格,我只需要一个,你看看帮我修改一下

热心网友时间：2022-06-22 10:00

Function 去重(source_ As String) As String

temp = Split(source_, " ") '提取每个元素
去重 = ""
For Each item_ In temp '遍历每个元素
If 去重 = "" Then '如果是第一个则直接赋值
去重 = item_
Else
If 去重 Like "* *" Then '识别是否两个以上元素
temp_1 = Split(去重, " ")
flg_重复 = False
'遍历是否重复
For Each item_1 In temp_1
If item_ = item_1 Then flg_重复 = True
Next
If Not flg_重复 Then 去重 = 去重 & " " & item_
Else '只有一个元素则直接判断是否一致
If Not 去重 = item_ Then 去重 = 去重 & " " & item_
End If
End If
Next
End Function