首页 > Excel专区 > Excel函数 >

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

Excel函数 2023-01-13

有时需要将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”。


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.