Sub 单元格内不重复字符()
Set d = CreateObject("scripting.dictionary")
Set e = CreateObject("scripting.dictionary")
For i = 1 To Len(ActiveCell.Value)
d(Mid(ActiveCell.Value, i, 1)) = ""
Next
On Error Resume Next
For i = 1 To Len(ActiveCell.Value)
e.Add Mid(ActiveCell.Value, i, 1), ""
If Err.Number = 457 Then d.Remove (Mid(ActiveCell, i, 1))
Err.Clear
Next
MsgBox Join(d.keys, "")
End Sub
Sub 单元格内不重复字符()
For i = 1 To Len(ActiveCell.Value)
For a = 1 To Len(ActiveCell.Value)
If Mid(ActiveCell.Value, i, 1) = Mid(ActiveCell.Value, a, 1) Then m = m + 1
Next
If m = 1 Then mm = mm & Mid(ActiveCell.Value, i, 1)
m = 0
Next
MsgBox mm
End Sub
可以改为自定义函数！ |
發表於 2010-7-10 16:41
| 
