如果要在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”。