您的位置: 首页 > EXCEL技巧 > Excel函数 >

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

时间:2013-12-13 整理:docExcel.net

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

用自定义函数去掉字符串中的重复字符 问题:用自定义函数去掉字符串中的重复字符
回答:如果要在Excel中将单元格内字符串中的重复字符去掉,重复的字符仅保留一个,如将字符串“1232345667”变成“1234567”,可以用自定义函数实现。    步骤如下: 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,...
在excel中如何不计算空格这个文本字符串 问题:在excel中如何不计算空格这个文本字符串
回答:TRIM去掉空格再算
提取字符串中两相邻分隔符之间文本的公式 问题:提取字符串中两相邻分隔符之间文本的公式
回答:有时需要从包含分隔符号的字符串中提取子字符串,例如Excel工作表的某列中包含类似“200-GH11301-11TB5”的文本字符串,该字符串被两个相同的分隔符号“-”分成三部分,且每部分的字符数不固定,现在需要提取其中的第2部分内...
Word查找中通配符前反斜杠的用法 问题:Word查找中通配符前反斜杠的用法
回答:...o;?”代表任意一个字符,“*”代表任意长度的字符串,例如,张三张四张五,用一个“张?”就可以找到张三张四张五,甚至张开头的文档中所有两字词语,都能查找出来。 ②而“*”则代表任意字符串...
如何用Excel从字母数字字符串中提取数字 问题:如何用Excel从字母数字字符串中提取数字
回答: 此办理方案的根基道理是搜索并返回字母数字字符串中的第一个数字,然后只返回其后的数字。 算法 此办理方案包罗建设公式以完成下列任务: 1.将字母数字字符串解析为单独的字符。 2.确定解析后的字符串中是否有数字。 3....
用自定义函数提取字符串中的重复字符 问题:用自定义函数提取字符串中的重复字符
回答:有时需要将Excel单元格内字符串中的重复字符提取出来,例如提取字符串“abcdeAbcDe”中重复的几个字符“bce”,如图所示,可以用自定义函数实现。 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,在代码窗口中粘贴...
相关推荐: