Question

excel在多个工作表中查找某个值

怎么在同一个工作簿，不通工作表（大概有17个）查找某个值，我用IF嵌套vlookup做出来了，但是代码超级长，而且需要大量使用，导致运行慢

所以想求一个简单点的方法，求解！！

Answer 1

"编辑"菜单----"查找"----输入查找内容----点"选项"按钮----查找范围设为"工作薄"----查找

追问

。。。。
额……我要的不是这个，还是谢谢！

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, i As Byte
    If Target.Column = 1 Then
        For i = 2 To Sheets.Count
            With Worksheets(i)
                Set c = .Cells.Find(Target, LookAt:=xlWhole, LookIn:=xlValues)
                If Not c Is Nothing Then
                    Target.Offset(0, 1) = c.Offset(0, 1)
                    Exit For
                End If
            End With
        Next
    End If
End Sub

追问

工作表全都重命名过也可以么？目前工作表的名字无规律。

追答

不管什么表名,只要你要输入的表是第一个就行,如果不是,要改For i = 2 To Sheets.Count为
For i = 1 To Sheets.Count
If Not Sheets(i).Name = ActiveSheet.Name Then '不在当前输入的表查找

......'要执行的代码
end if

Answer 3

把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）、excel样表文件（把现状和目标效果表示出来）作为附件发来看下 yqch134@163.com

Answer 4

对这种大数据量的而且经常性的任务，用VBA做，效率高很多。

追问

求详解！！

追答

告诉我要在每个sheet的哪些位置找，找什么数据。上个图。
把你原来的if公式也贴上来。

追问

代码贴不上来，提示字数超过了，，我那工作簿大小都70M了，太冗余了。
你可不可以举个例子，我研究下你的例子，看我能不能理解。

追答

可以，给你写一个，你自己改改。等等啊。

Answer 5

IF+INDIRECT函数

追问

求详解！
貌似代码还是会很长很长。

追答

假设查找每个SHEET   A列是否有张三？