[已解决]如何把表2中未曾被引用过的行挑拣出来？

日斜阳 · 发表于 2015-1-5 12:49

附件中Sheet1表引用了Sheet2中的数据，但Sheet2中，有部分数据未被引用，请教下，怎么把这些未被引用过的数据拣选出来？
拣选到另一表中也可，或用其它标记方法也可。求指点。

最佳答案

Tank008

2015-1-5 13:30

这是做好的效果。

效果.rar (12.33 KB, 下载次数: 4)

wp8680 · 发表于 2015-1-5 12:58

复制代码

冥王 · 发表于 2015-1-5 13:04

countif或者高级筛选

Tank008 · 发表于 2015-1-5 13:27

Sub 提取未使用值()
Dim d '用于存储sheet1的数据
Dim a '用于存储sheet2的数据
Dim b(1 To 1000, 1 To 2) '用于存储未使用的数据
Dim k As Integer '记录数组b中的行数
Dim x As Integer '循环变量
a = Sheets("sheet2").Range("A1:B" & Sheets("sheet2").Range("A1").End(xlDown).Row)
Set d = CreateObject("scripting.dictionary")
'将sheet1中的数据存到字典d
For x = 2 To Sheets("sheet1").Range("A1").End(xlDown).Row
d.Add Sheets("sheet1").Cells(x, 1).Value, Sheets("sheet1").Cells(x, 2).Value
Next x
'将sheet2中未使用的数据存入数组b
For x = 1 To UBound(a)
If Not d.exists(a(x, 1)) Then
k = k + 1
b(k, 1) = a(x, 1)
b(k, 2) = a(x, 2)
End If
Next x
'将数组b中的数据返回到sheet1以D1开头的单元格区域
Sheets("sheet1").Range("D1").Resize(k, 2) = b
End Sub

复制代码

Tank008 · 发表于 2015-1-5 13:30

这是做好的效果。

效果.rar (12.33 KB, 下载次数: 4)

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