excel能翻译中文吗
919
2022-12-03
Excel利用自定义函数提取字符串中的重复字符
有时需要将Excel单元格内字符串中的重复字符提取出来,例如提取字符串“abcdeAbcDe”中重复的几个字符“bce”,如图所示,可以用自定义函数实现。
1.按Alt+F11,打开VBA编辑器。
2.单击菜单“插入→模块”,在代码窗口中粘贴代码:
Function GetDupChar(theString As String) As StringDim i As IntegerFor i = 1 To Len(theString) – 1If 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 IfNextEnd Function
3.关闭VBA编辑器,返回Excel工作表界面。
假如字符串在A2单元格,在B2输入公式:
=GetDupChar(A2)
要将多个单元格中的字符串合并后提取重复字符,如A3单元格为“12345123”,A4单元格为“mnc12526”,在B8单元格输入公式:
=GetDupChar(A3&A4)
将返回这两个单元格中字符串合并后重复的字符“1235”。
版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。