如果要在Excel中将单元格内字符串中的重复字符去掉,重复的字符仅保留一个,如将字符串“1232345667”变成“1234567”,可以用自定义函数实现。
?????
??? 步骤如下:
??? 1.按Alt+F11,打开VBA编辑器。
??? 2.单击菜单“插入→模块”,在代码窗口中粘贴代码:
??? Function RemoveDupChar(theString As String) As String
??? Dim i As Integer
??? For i = 1 To Len(theString)
????? If InStr(RemoveDupChar, Mid(theString, i, 1)) = 0 And _
???????? Mid(theString, i, 1) <> " " Then _
??????? RemoveDupChar = RemoveDupChar & Mid(theString, i, 1)
??? Next
??? End Function
??? 3.返回Excel工作表界面。
??? 假如字符串在A1单元中,在B1单元格中输入公式:
??? =RemoveDupChar(A1)
??? 该自定义函数还可以将多个单元格中的字符串合并后去重复,如A6单元格为“12345”,A7单元格为“23456”,在B6单元格输入公式:
??? =RemoveDupChar(A6&A7)
??? 公式返回“123456”。
……