如果要在Excel中將單元格內(nèi)字符串中的重復(fù)字符去掉，重復(fù)的字符僅保留一個(gè)，如將字符串“1232345667”變成“1234567”，可以用自定義函數(shù)實(shí)現(xiàn)。

?????

??? 步驟如下：

??? 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)

??? 該自定義函數(shù)還可以將多個(gè)單元格中的字符串合并后去重復(fù)，如A6單元格為“12345”，A7單元格為“23456”，在B6單元格輸入公式：

??? =RemoveDupChar(A6&A7)

??? 公式返回“123456”。