利用excel自定义函数去掉字符串中的重复字符
时间:2023-10-02 00:01:31
如果要在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函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
电脑怎么打开设备管理器 Win7系统设备管理器启动方法
2023-04-29 21:56:21
![](https://img.aspxhome.com/file/2023/2/a285285_0s.jpg)
Win10 无法卸载/重装IE11浏览器的解决方法
2022-02-15 20:09:00
![](https://img.aspxhome.com/file/2023/30/a263366_0s.png)
Win11如何进行系统还原?Win11系统还原的方法
2023-10-31 13:11:56
![](https://img.aspxhome.com/file/2023/27/a235339_0s.png)
Win7系统如何借助format低格命令进行U盘格式化?
2022-10-26 00:48:17
![](https://img.aspxhome.com/file/2023/28/a242607_0s.jpg)
excel表格中怎么通过关键字模糊匹配查找全称?
2023-07-07 10:36:39
![](https://img.aspxhome.com/file/2023/8/a141558_0s.png)
电脑提示音频服务未运行怎么办_音频服务未运行
2022-09-12 01:32:51
![](https://img.aspxhome.com/file/2023/2/a286335_0s.jpg)
然后单击确定按钮关闭对话框
2022-09-24 12:30:30
对于苹果二手手机你真的了解吗?
2023-03-16 02:01:39
word2016全选怎么操作
2023-11-12 09:26:31
梦幻般的PPT幻灯片切换效果制作方法
2022-09-25 04:38:18
Win10 build9879版补丁更新:修复资源管理器频繁崩溃问题
2023-05-05 20:03:36
![](https://img.aspxhome.com/file/2023/29/a252794_0s.jpg)
WPS表格ET通过在标题中插入图片来设置图片背景
2023-10-04 02:08:45
![](https://img.aspxhome.com/file/2023/4/a169544_0s.jpg)
iOS16缺席了哪些好功能?
2023-08-02 13:27:14
![](https://img.aspxhome.com/file/2023/2/45362_0s.png)
Word文档中标尺的使用
2022-12-27 17:32:02
uPaste好看实用的苹果mac剪贴板工具
2022-05-06 18:45:02
![](https://img.aspxhome.com/file/2023/0/a208770_0s.jpeg)
win10版本回退要多久_win10版本回退要多久使用心得
2023-02-19 14:21:42
![](https://img.aspxhome.com/file/2023/4/a309236_0s.jpg)
win10玩巫师3看cg闪退怎么解决_win10电脑玩巫师3看cg闪退的解决办法
2023-03-26 10:26:42
![](https://img.aspxhome.com/file/2023/4/a305120_0s.jpg)
电脑打字快速入门-电脑打字快速入门方法介绍
2023-06-05 18:02:03
![](https://img.aspxhome.com/file/2023/2/a291406_0s.png)
怎么在 Windows 11 上禁用 Hyper-V?
2022-03-15 01:17:02
![](https://img.aspxhome.com/file/2023/30/a268523_0s.jpg)
U盘安装Win8教程 用U盘做Win8启动盘
2023-07-17 13:56:03
![](https://img.aspxhome.com/file/2023/5/a318949_0s.jpg)