UC知道vba删除相同字符串代码问题
来源：百度知道 编辑：UC知道 时间：2024/05/17 08:26:15
Sub XXX()
Dim T As Variant, X As Variant, P As Variant
Dim I%, K%
T = Cells(1, 1)
K = Len(T)
For I = 1 To K
X = Mid(T, I, 1)
If InStr(T, X) = 0 Then
P = P & X
End If
Next
Cells(2, 1) = P
End Sub
我想删除同一个单元格里面相同的字符串，请高手帮我看看程序，运行了但是实现不了
Dim T As Variant, X As Variant, P As Variant
Dim I%, K%
T = Cells(1, 1)
K = Len(T)
For I = 1 To K
X = Mid(T, I, 1)
If InStr(T, X) = 0 Then
P = P & X
End If
Next
Cells(2, 1) = P
End Sub
我想删除同一个单元格里面相同的字符串，请高手帮我看看程序，运行了但是实现不了
你的思路是：
从T中取一个字符到X
然后看X是否在T中，如果不在T中
就加到P中
仔细看下就会发现问题，X肯定在T中，因为X就是T中取出来的
应该这样：
在循环前给P赋值空字符串
后面代码一样，只是在判读是否重复时应该是看是否在P中，即：
If InStr(P, X) = 0 Then