利用excel自定义函数去掉字符串中的重复字符

网友投稿 1288 2022-12-03

利用Excel自定义函数去掉字符串中的重复字符

如果要在Excel中将单元格内字符串中的重复字符去掉,重复的字符仅保留一个,如将字符串“1232345667”变成“1234567”,可以用自定义函数实现。

步骤如下:

利用excel自定义函数去掉字符串中的重复字符

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小时内删除侵权内容。

上一篇:excel保存工作簿时提醒指定单元格不能为空解决方案
下一篇:利用VBA获取Excel最近使用的工作簿列表
相关文章