编制代码如下:
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、首先打开计算机,在计算机内找到WPS并使用鼠标右键单击,在d出的选项栏内找到打开方式为WPS选项并单击,然后单击打开该Excel文件。2、右键选中文件,再点击属性。
3、在属性界面中,点击打开方式后面的更改。
4、然后选中WPS表格,再点击确定即可没掉无法数据库的内容。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)