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

用自定义函数提取字符串中的重复字符

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

有时需要将Excel单元格内字符串中的重复字符提取出来,例如提取字符串“abcdeAbcDe”中重复的几个字符“bce”,如图所示,可以用自定义函数实现。

自定义函数提取重复的字符

1.按Alt+F11,打开VBA编辑器。

2.单击菜单“插入→模块”,在代码窗口中粘贴代码:

Function GetDupChar(theString As String) As String
Dim i As Integer
For i = 1 To Len(theString) - 1
   If Len(theString) - Len(Replace(theString, Mid(theString, i, 1), "")) > 1 Then '
  If InStr(GetDupChar, Mid(theString, i, 1)) = 0 Then GetDupChar = GetDupChar & Mid(theString, i, 1)
End If
Next
   End Function

3.关闭VBA编辑器,返回Excel工作表界面。

假如字符串在A2单元格,在B2输入公式:

=GetDupChar(A2)

要将多个单元格中的字符串合并后提取重复字符,如A3单元格为“12345123”,A4单元格为“mnc12526”,在B8单元格输入公式:

   =GetDupChar(A3&A4)

将返回这两个单元格中字符串合并后重复的字符“1235”。

提取字符串中两相邻分隔符之间文本的公式 问题:提取字符串中两相邻分隔符之间文本的公式
回答:有时需要从包含分隔符号的字符串中提取字符串,例如Excel工作表的某列中包含类似“200-GH11301-11TB5”的文本字符串,该字符串被两个相同的分隔符号“-”分成三部分,且每部分的字符数不固定,现在需要提取其中的第2部分内...
用自定义函数提取字符串中的重复字符 问题:用自定义函数提取字符串中的重复字符
回答:有时需要将Excel单元格内字符串中的重复字符提取出来,例如提取字符串“abcdeAbcDe”中重复的几个字符“bce”,如图所示,可以用自定义函数实现。 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,在代码窗口中粘贴...
如何用Excel从字母数字字符串中提取数字 问题:如何用Excel从字母数字字符串中提取数字
回答: 此办理方案的根基道理是搜索并返回字母数字字符串中的第一个数字,然后只返回其后的数字。 算法 此办理方案包罗建设公式以完成下列任务: 1.将字母数字字符串解析为单独的字符。 2.确定解析后的字符串中是否有数字。 3....
数组公式提取单元格内第一个汉字前的字符串 问题:数组公式提取单元格内第一个汉字前的字符串
回答:有时需要在Excel中提取单元格内文本第一个汉字前的字符串,例如从“MD-T289(XQ01)黑色”中提取“MD-T289(XQ01)”。如果各单元格文本中首个汉字前的字符串长度不等,可用下面的一些数组公式。例如字符串在下图所示的A列单元格中...
用公式提取Excel单元格中的汉字 问题:用公式提取Excel单元格中的汉字
回答:对于一个混杂各种字母、数字及其他字符和汉字的文本字符串,要提取其中的汉字,在Excel中通常可用下面的公式。例如下图A列中的字符串,要在B列提取其中的汉字(或词语)。 如果汉字位于字符串的开头或结尾,用LEFT或RIGHT...
用自定义函数提取单元格内字符串中的数字 问题:用自定义函数提取单元格内字符串中的数字
回答:如果Excel单元格中包含一个混合文本和数字的字符串,要提取其中的数字,通常可以用下面的公式,例如字符串“隆平高科000998”在A1单元格中,在B1中输入数组公式: =MID(A1,MATCH(1,--ISNUMBER(--MID(A1,ROW(INDIRECT( 1: &LEN(A1))),1)),0),COUN...
相关推荐: