举个例子:BG列有数据:
1
2
1
3
4
1
5
4
6
。。。
BG列具体有多少行数据未定。现在我想用VBA在BH列显示BG列删除重复数据后的结果:
1
2
3
4
5
6
。。。
请高人帮手编一个VBA,万分感谢。
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,运行代码,后返回工作表,会发现单元格中的重复字符已经被去掉。