多行多列提取不重复记录

张雄友 · 发表于 2012-11-13 12:56

多行多列提取不重复记录。

winnie_xyh · 发表于 2012-11-13 13:10

试试：

Sub xx()
arr = Range("a1:e15")
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
d(arr(i, j)) = ""
Next
Next
k = d.keys
Range("f2").Resize(UBound(k)) = Application.Transpose(k)
End Sub

复制代码

张雄友 · 发表于 2012-11-13 13:14

winnie_xyh 发表于 2012-11-13 13:10
试试：

UBound(arr, 2)中的2是什么意思？

winnie_xyh · 发表于 2012-11-13 13:20

张雄友发表于 2012-11-13 13:14
UBound(arr, 2)中的2是什么意思？

区域复制后，是一个二维数组，ARR，2就是第二维啊！

wenwen000424 · 发表于 2012-11-13 13:28

试试，是否适合你？

多行多列提取不重复记录.rar (9.46 KB, 下载次数: 125)

张雄友 · 发表于 2012-11-13 20:59

winnie_xyh 发表于 2012-11-13 13:20
区域复制后，是一个二维数组，ARR，2就是第二维啊！

Sub 多行多列不重复()
arr = Range("a1:e14")
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
d(arr(i, j)) = ""
Next
Next
k = d.keys
Range("f2").Resize(UBound(k) + 1) = Application.Transpose(k)
End Sub

你用Range("f2").Resize(UBound(k)) = Application.Transpose(k)
就要多选一行的。arr = Range("a1:e15")
实际区域是arr = Range("a1:e14")

张雄友 · 发表于 2012-11-18 13:30

如果改成多行多列提取重复的呢？

张雄友 · 发表于 2012-11-18 15:48

如果改成多行多列提取重复的呢？怎么改好？

dsmch · 发表于 2012-11-18 16:41

张雄友发表于 2012-11-18 15:48
如果改成多行多列提取重复的呢？怎么改好？

Dim arr, d As Object, i&, j&, m
Set d = CreateObject("scripting.dictionary")
arr = Range("a1:e" & Range("a65536").End(xlUp).Row)
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
If Not d.exists(arr(i, j)) Then d(arr(i, j)) = "" Else d(arr(i, j) & "," & 2) = ""
Next
Next
m = Filter(d.keys, ",2")
Range("f1").Resize(UBound(m) + 1, 1) = Application.Transpose(m)
Columns(6).Replace ",2", ""

复制代码

blackttea1 · 发表于 2018-3-24 19:38

学习啦，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 多行多列提取不重复记录

评分

评分

评分