EXCEL如何通过VBA代码去掉字符串中重复字符

来源：互联网 2023-03-17 00:15:06 242

在工作中，Excel的运用十分广泛，我们在处理大量数据的时候，经常将单元格中重复的字符删除，并且只保留一个如何快速而高效的进行操作，提高工作效率，是我们每一个职场人都关心的问题。这里小编就将自己在工作中使用的一种有效方法介绍给大家。

工具/原料

我们打开要进行数据处理的表格

我们会发现，C列每个单元格里边的字母都有个别是重复的，下面我们来说先我们的目的：把C列字符串中的字符保留唯一值，去掉多余重复的值

我们按ALT f11，进入VBE程序操作页面

EXCEL如何通过VBA代码去掉字符串中重复字符

将鼠标下移，右键弹出如图

EXCEL如何通过VBA代码去掉字符串中重复字符

选择插入-模块

EXCEL如何通过VBA代码去掉字符串中重复字符

5此文章未经授权抓取自百度经验

鼠标向右移动，将如下代码写入：

Sub test()

Dim d As 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) = ""

arr(i, 2) = Join(d.Keys, "")

.Range("d2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 2)

End With

End Sub

EXCEL如何通过VBA代码去掉字符串中重复字符

按F5，运行代码，后返回工作表，我们会发现单元格中的重复字符已经被去掉

EXCEL如何通过VBA代码去掉字符串中重复字符

以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！