VBA RemoveDuplicates Columns:=去重列能不能用变量表示

740688321

1. '[功能] 去除选定内容中重复的
   
2. Sub R1()
   
3.     Set d = Nothing
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For Each c In Selection.Cells
   
6.         If d.Exists(c.Value) Then
   
7.             c.Clear
   
8.         Else
   
9.             d(c.Value) = "" 'd.Add c.Value, ""
   
10.         End If
    
11.     Next c
    
12.     Set d = Nothing
    
13. End Sub
    

复制代码

LMY123

ADO及字典去重复

OKJSJSF

山风 发表于 2014-8-20 10:53
Sub 字典()
With Sheets("明细")
r = .Range("A65536").End(xlUp).Row

请问数组、字典中的元素有长度限制吗？

fqxqin

张雄友 发表于 2014-8-19 21:08
换个思路，用提取的办法，附件是个例子。

太棒了，找到了不用引用工程，使用sql语句了。

大灰狼1976

数组变量外面加个括号就可以了，原因不明。

1. Sub test()
   
2. Dim arr
   
3. arr = Array(1, 2, 4)
   
4. ActiveSheet.Range("$A$1:$D$12").RemoveDuplicates Columns:=(arr), Header:=xlNo
   
5. End Sub

复制代码

Ethan427

大灰狼1976 发表于 2024-2-5 13:28
数组变量外面加个括号就可以了，原因不明。

问的GTP
使用Columns:=colArray时的错误原因：
当你直接传递 colArray 时，VBA 有时会将其解释为一个单一的值而不是数组。这可能会导致“无效的过程调用或参数”的错误。
使用Columns:=(colArray)时的正确原因：
使用括号 (colArray) 强制 VBA 将 colArray 作为数组来处理，而不是作为一个单一的值。这确保了 RemoveDuplicates 方法接收到的是一个正确格式的数组。