excel利用自定义函数去掉字符串中的重复字符

重庆中职学校 中职招生 中职报考中心 重庆职校报名网 公办重点中职招生办电话 重庆职校报名网 重庆中专学校招生

如果要在Excel中将单元格内字符串中的重复字符去掉,重复的字符仅保留一个,如将字符串“1232345667”变成“1234567”,可以用自定义函数实现。

    excel利用自定义函数去掉字符串中的重复字符 

    步骤如下:

    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”。

重庆中职学校 中职招生 中职报考中心 重庆职校报名网 公办重点中职招生办电话 重庆职校报名网 重庆中专学校招生
版权声明

本文仅代表作者观点,不代表本站立场。
本站资源均来自互联网整理,版权归原作者所有,切勿用作非法使用和未经授权的商用,因此带来的法律风险与本站无关。

本文链接:http://www.chousj.cn/exceljc/870.html

发表评论

评论列表(0人评论 , 31人围观)
☹还没有评论,来说两句吧...

免费资源分享网_电脑操作教程_免费源代码下载_免费字体下载_高清电脑壁纸

http://www.chousj.cn/

| 渝ICP备15004826号

Powered By

使用手机软件扫描微信二维码

关注我们可获取更多热点资讯

Honor accompaniments. theme qk_xmh