EXCEL如何通过VBA代码去掉字符串中重复字符
1、我们打开要进行数据处理的表格
2、我们会发现,C列每个单元格里边的字母都有个别是重复的,下面我们来说先我们的目的:把C列字符串中的字符保留唯一值,去掉多余重复的值
3、我们按ALT+f11,进入VBE程序操作页面
4、将鼠标下移,右键弹出如图
5、选择插入-模块
6、鼠标向右移动,将如下代码写入:Sub test() Dim d A衡痕贤伎s Object Dim r%, i% Dim arr Set d = CreateObject("scripting.dictionary") With Worksheets("sheet1") r = .Cells(.Rows.Count, 3).End(xlUp).Row arr = .Range("c2:d" & r) For i = 1 To UBound(arr) d.RemoveAll For j = 1 To Len(arr(i, 1)) ch = Mid(arr(i, 1), j, 1) d(ch) = "" Next arr(i, 2) = Join(d.Keys, "") Next .Range("d2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 2) End WithEnd Sub
7、按F5,运行代码,后返回工作表,我们会发现单元格中的重复字符已经被去掉
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:96
阅读量:60
阅读量:58
阅读量:70
阅读量:43