[已解决]老师求教，如何批量查询并标红

zhgoqiang · 发表于 2014-7-8 03:56

本帖最后由 zhgoqiang 于 2014-7-8 05:14 编辑

现在有sheet 1 和 Sheet 2， Sheet 1中有两列，A列为货品编号，B列为货品名称

Sheet 2中只有一列，是货品编号，且这些货品编号都属于Sheet1中A列（即Sheet2 的A列数据全部能在Sheet1中A列找到）

现在想在Sheet1中插入一个按钮，能够在Sheet1 中查找到所有Sheet2里的数据，并将Sheet 1中对应的行标红

感谢！

最佳答案

月排行榜 / 总排行榜

may158

2014-7-8 09:20

这个行不？

Practice.rar (36.3 KB, 下载次数: 13)

may158 · 发表于 2014-7-8 06:57

看看这个能不不能帮助你

新建 Microsoft Excel。xls工作表.rar (8.63 KB, 下载次数: 9)

26759761@qq.com · 发表于 2014-7-8 09:04

本帖最后由 26759761@qq.com 于 2014-7-8 10:18 编辑

可以参考一下

Sub 飘红()
Dim arr
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
arr = Sheet2.Range("a1:a" & Sheet2.Cells(Rows.Count, 1).End(3).Row)
For a = 1 To UBound(arr)
d.Add arr(a, 1), ""
Next
arr1 = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row)
For b = 1 To UBound(arr1)
If d.exists(arr1(b)) = true Then
Range("a" & b).Interior.ColorIndex = 3
End If
Next
End Sub

复制代码

may158 · 发表于 2014-7-8 09:20

这个最佳答案由 may158 给出，感谢 may158 的回答。

单击隐藏图章

这个行不？

Practice.rar (36.3 KB, 下载次数: 13)

zhgoqiang · 发表于 2014-7-8 21:45

may158 发表于 2014-7-8 06:57
看看这个能不不能帮助你

明白了，很有帮助，谢谢！

zhgoqiang · 发表于 2014-7-8 21:45

26759761@qq.com 发表于 2014-7-8 09:04
可以参考一下

谢谢代码！解决问题！

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

[已解决]老师求教，如何批量查询并标红

相关帖子