VBA字典法去重,请问我的代码怎么只去重了前两个单元格呢?

用字典可以轻松快捷地实现去重的操作，代码如下：Sub main()Set dic = CreateObject("scripting.dictionary") '创建字典对象，并把字典对象赋给变量dic；这是最常用的一句代码，也就是所谓的“后期绑定”For i = Range("B65536").End(3).Row To 1 Step -1 '从B列的最后一行到第一行依次递减，...

Function 去重(a As String)b = Split(a, " ")For Each cel In b n = Split(去重, " ") m = 0 For i = 0 To UBound(n) If cel = n(i) Then m = m + 1 Next If m = 0 Then 去重 = 去重 & " " & celNextEnd Function ...

可以用vba写个去重的自定义函数。代码如下：Function QCF(S As String)Dim ZD Set ZD = CreateObject("SCRIPTING.DICTIONARY")QCF = ""For I = 1 To Len(S)MYT = Mid(S, I, 1)If Not ZD.EXISTS(MYT) Then ZD.Add MYT, 1 QCF = QCF & MYT End If Next I End Function 效果如图：...

可以用如下方法 1、将B2：G20转成一列名字（先列后行，1列）Excel数据如何快速排列 2、选上面转成一列名字和多一列空行生成不重复人名了 Excel数据批量转置（二列转多列）用万能式转换（二列转多列）

我输入的程序如下图：程序执行完毕后，所有数字只保留首次出现的情况，重复出现时被清空，如下图：然后CTRL+G定位空单元格后删除即可。文本的程序代码如下，你可以粘贴使用：Option Explicit Sub 全表去重()Dim db, arr, i, j Set db = CreateObject("Scripting.Dictionary")arr = ActiveSheet....

经典应用场景1. 数据去重神器：想象一下，你需要从一个数组arr中去除重复值。用字典d做你的得力助手，遍历数组，将每个值作为key，value设为空。这样，重复的值自然会被剔除。最后，你只需将去重后的键存入新数组brr，就能轻松为ComboBox1填充独一无二的选项。2. 智能下拉菜单选择：在UserForm的设计中...

前两天正好找到这样一段代码，借你用一下Dim arr, brr, crr(1 To 70), b As Boolean b = False Dim x%: x = 1 arr = ActiveSheet.Range(Cells(1, 1), Cells(70, 1)) brr = ActiveSheet.Range(Cells(1, 2), Cells(70, 2)) For i = 1 To UBound(arr, 1) ...

2.Alt+F11，在相应的工作表的VBE中输入代码，执行即可 代码详解如下：Sub main()Set dic = CreateObject("scripting.dictionary")'后期绑定字典 For i = 1 To 100 dic(Cells(i, "A").Value) = ""'将A列数值依次放到字典中，字典自带去重功能，重复的数值只保留一个，这里只用到了地点的keys...

With Sheets("明细")If .Cells(1, 1) = "" Then .Cells(1, 1) = " "arr = .UsedRange End With For i = 2 To UBound(arr)k = Trim(arr(i, 3))v = Trim(arr(i, 4))If Not d.exists(k) Then d.Add k, CreateObject("Scripting.Dictionary")d(k)(v) = True Next i i...

2、Set d = CreateObject("Scripting.Dictionary") 字典对象，这里主要是应用其key的唯一行来去重 3、Range("L2").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys) resize扩充，这里就是将L2变成 L2:L(d.count+1) ,比如 d.count=10,那么这里就是L2:L11，也就是向下扩充d.count-1...