利用excel自定義函數去掉字符串中的重復字符

利用Excel自定義函數去掉字符串中的重復字符

如果要在Excel中將單元格內字符串中的重復字符去掉，重復的字符僅保留一個，如將字符串“1232345667”變成“1234567”，可以用自定義函數實現。

步驟如下：

1.按Alt+F11，打開VBA編輯器。

2.單擊菜單“插入→模塊”，在代碼窗口中粘貼代碼：

Function RemoveDupChar(theString As String) As StringDim i As IntegerFor 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)NextEnd Function

3.返回Excel工作表界面。

假如字符串在A1單元中，在B1單元格中輸入公式：

=RemoveDupChar(A1)

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

=RemoveDupChar(A6&A7)

公式返回“123456”。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。