[已解决]求教如何实现用指定区域的数据在多个工作表查找数据并自动批注

vien88 · 发表于 2017-3-20 20:22

如题，希望有老师可以帮忙给看一下，这种要怎么实现呢，附件已上传，帮忙写一下功能呢！

QQ图片20170320194833.png

还有就是请各位前辈帮忙看下，如果在条件格式中用公式的方式实现，拿源的数据到Sheet1~Sheet50 （甚至更多）当中寻找相同数据，如找到后，自动底纹变色！

本来是用COUNTIF函数试了一下，=COUNTIF(Sheet1!$D$21:$G$25,C3)=1 发现只能在一个工作表寻找，如果要寻找多个工作表的话公式要怎么写呢！

批注.rar (3.03 KB, 下载次数: 5)

Excel学徒123 · 发表于 2017-3-21 09:45

每个宿舍号的区域都是固定的？？？

Excel学徒123 · 发表于 2017-3-21 10:09

这个最佳答案由 Excel学徒123 给出，感谢 Excel学徒123 的回答。

单击隐藏图章

拿去用吧

Option Explicit
Sub test()
Dim rng As Range, rg As Range
Dim rng1 As Range, rg1 As Range
Dim iSht%
Set rng = Worksheets("源").Range("c3:m4")
For iSht = 2 To Worksheets.Count
Set rng1 = Worksheets(iSht).UsedRange
For Each rg In rng
For Each rg1 In rng1
If rg.Value = rg1.Value Then
rg.ClearComments
rg.AddComment Text:=Worksheets(iSht).Name
Exit For
End If
Next
Next
Set rng1 = Nothing
Next
End Sub

复制代码

vien88 · 发表于 2017-3-21 12:56

Excel学徒123 发表于 2017-3-21 09:45
每个宿舍号的区域都是固定的？？？

都是固定的呢！每个部门的版块都是弄一模一样的，只有名字和宿舍号不同！

vien88 · 发表于 2017-3-21 12:58

Excel学徒123 发表于 2017-3-21 10:09
拿去用吧

还有那个用【条件格式】更改底色的公式能实现吗？也是在指定的其他工作表里寻找相同数据

Excel学徒123 · 发表于 2017-3-21 13:50

vien88 发表于 2017-3-21 12:58
还有那个用【条件格式】更改底色的公式能实现吗？也是在指定的其他工作表里寻找相同数据

剩下的自己想吧，总得自己动脑筋啊

vien88 · 发表于 2017-3-21 15:06

Excel学徒123 发表于 2017-3-21 13:50
剩下的自己想吧，总得自己动脑筋啊

好吧！我再想下公式应该怎么编辑

Excel学徒123 · 发表于 2017-3-21 15:09

vien88 发表于 2017-3-21 15:06
好吧！我再想下公式应该怎么编辑

自己努力想了，学到的才是你自己的，实在不会没辙了，再求助

vien88 · 发表于 2017-3-21 17:10

Excel学徒123 发表于 2017-3-21 15:09
自己努力想了，学到的才是你自己的，实在不会没辙了，再求助

谢谢版主指教！！！刚刚再测试了一下，发现一个问题！如果在两个工作表中不小心填错，同时了出现相同的房间号！则批注内容自动显示最后找到的那个工作表！不会两个工作表都批注呢！有办法把所找到的两个工作表名称都批注上吗，这样是为了在出现这种情况时更好找到并纠错呢！

如下面截图， 1栋101 这个房间号在工作表【A栋101】【A栋109】都有输入！，但是代码所返回的批注内容只有最后找到的【A栋109】， A栋101没有批注上呢！ QQ图片20170321171040.png

Excel学徒123 · 发表于 2017-3-21 17:27

vien88 发表于 2017-3-21 17:10
谢谢版主指教！！！刚刚再测试了一下，发现一个问题！如果在两个工作表中不小心填错，同时了出现相同的 ...

加判断咯，然后不退出循环即可

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

[已解决]求教如何实现用指定区域的数据在多个工作表查找数据并自动批注

评分