编制代码如下:
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
1、修改表第1行和第1列用来定位数据库中的位置。2、单元格为空或与数据库的值相同,则不修改数据库中的数据,即保留数据库原值。
3、如果单元格的值与数据库的值不一样,则替换数据库单元格的值。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)