excel利用自定义函数去掉字符串中的重复字符
发布时间：2023-01-03 17:26:49
标签：excel,利用,自定义,函数,去掉,字符串,中的
如果要在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”。
0
投稿猜你喜欢
- 在生活中，我们很多朋友都养成了写日记的习惯，但是也多时候都不注意标点符号的写法，有时候就会让人啼笑皆非今天小编就看了一个朋友的日记，结果发现
在Excel表格中进行办公时我们经常会需要填充各种序号，比如我们需要填充一些字母加数字的序列效果，如A1，A2，A3到A50，GB001，G- excel工作表既可显示，也可被隐藏，如何取消隐藏的工作表呢？1、首先，打开需要取消隐藏工作表的表格。
- 我们经常会下载或者更新一些最新的系统补丁，不过有时候会遇到补丁与程序冲突的情况是需要卸载对应的补丁，那么应该如何卸载已安装的补丁呢？下面就和
- 当我们用Excel2003编辑统计数据表时，大量的数据整理起立比较麻烦，然而在这种情况下我们可以利用Excel排序功能来游览、查询相关的数据
- 有时我们用word做文件会遇到有空白页，按Backspace删除键却删除不了，其实很简单。下面小编就为大家介绍word中多余的空白页怎么删除
- 今天小编为大家带来的是把EXCEL2016中的数据进行分列批量编辑的方法；希望对大家会有帮助，有需要的朋友一起去看看吧有时候我们在做表格时，
- 有时候在Excel表格的统计中，需要对一大片人的身份证数据提取出生日期，有些朋友就会抱怨怎么根据身份证号码提取出生日期啊。以下是小编为您带来
- 想要进行一些简单的抠图，但是不会用Photoshop等图像处理软件，使用word就可以抠哦，下面小编就教教大家怎么使用Word2010进行简
- 在工作中会因为需要插入不同的水印，直接插入水印相对是比较简单的。今天给大家分享下如何让word2013每页显示不同的水印？这个略微有些绕脑壳
- Excel是功能强大的表格工具，在职场中有广泛的运用，比如，我们统计员工信息的时候，如果知道身份证号，就能用Excel函数提取其中的出生年月
- 有不少小伙伴在使用系统的时候，电脑会弹出个Win10易升界面的程序，让你升级win10系统。由于经常弹出，让人反感，那么要如何彻底关闭这个功
- Excel中的直线具体该如何画呢?下面是由小编分享的excel中画直线的教程，以供大家阅读和学习。excel中画直线的教程：画直线步骤1：打
- word为我们提供了信息检索功能，我们可以打开“信息检索”窗格，在该窗格中使用其提供的翻译、同义词库及英语助手等功能，下面介绍word信息检
- Word怎么自定义页眉？很多文档会在页眉上添加公司的logo或者是联系方式，那么这些信息是如何添加进去的呢？每次都要重新制作一个页眉样式吗？
- 在Excel表格中如何快速找出不同类型的数据？Excel数据太多，想要找出不同类型的数据犹如大海捞针？别灰心，今天小Q来教您一个快速找出不同
- 第一，域有关的选项域代码位于大括号中。如果要显示域代码的结果并隐藏域代码， 可按如下步骤进行：单击【工具】菜单中的【选项】命令，出现【选项】
- 最近不知道怎么回事，计算机老是出现Word打不开的提示，弹出对话框提示有错误，在点击了“不发送”按钮后将关闭。再次运行 Word，将询问是否
- 这题我会！遇见过文件无法打开，或文件打开乱码等情况的伙伴们看过来，从事数据恢复行业20余年的“技术宅”效哥，直接给大家上权威恢复方法啦~方法
- virtualbox与win10不兼容怎么解决？很多用户在安装或者升级Win10系统的时候会提示virtualbox与win10不兼容的问题
