excel 用VBA如何删除一列中的重复数据

Answer 1

1、打开要进行数据处理的表格，

2、按ALT+f11，进入VBE程序操作页面，

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

4、选择插入-模块，

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) = ""

Next

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

Next

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

End With

End Sub

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