如图这样,要把重复的去掉。形成正常的地址。如第一个为:江苏省南京市白下区御道街30号30栋404
这样的数据有很多很多,手工是不现实的。有没有公式或者函数可以实现?
ç¨ä¸è½çVBAå¯ä»¥è§£å³ã
ç¼å¶ä»£ç å¦ä¸ï¼
Sub å»é¤éå¤å符()
Dim I, J, K As Integer
Dim BJ As Integer
Dim s As String
Dim mya(1 To 100)
s = Cells(1, 1)
I = Len(s)
For J = 1 To I
mya(J) = Mid(s, J, 1)
Next J
s = mya(1)
For J = 2 To I
BJ = 0
For K = 1 To J - 1
If mya(J) = mya(K) Then
BJ = 1
Exit For
End If
Next K
If BJ = 0 Then
s = s + mya(J)
End If
Next J
Cells(1, 2) = s
End Sub
è¿è¡ç»æå¦å¾ï¼