excel中如何在多个表格中查找到我要找的内容。

发布网友发布时间：2022-03-18 11:49

共2个回答

热心网友时间：2022-03-18 13:18

愿以的话把表格发给我看看 2252809238.追问有12个表格要还有一张纸上面有名单要对着名单找出12张表格中哪个有那张纸上的，然后标记出来！

追答Sub 循环工作表查找()
Dim arr, brr, dt, s$, m%, i%
Dim sh As Worksheet
y = InputBox("请输入查找内容" & Chr(10) & "输入形式" & Chr(10) _
& "查找内容1，查找内容2，.....", "提示", " ")
brr = Split(y, "，")
Set dt = CreateObject("Scripting.dictionary")
For i = 0 To UBound(brr)
dt.Add (brr(i)), m
m = m + 1
Next
For Each sh In Sheets
F = sh.Name
r = sh.Range("A65536").End(3).Row
arr = sh.Range("A1:A" & r)
For i = 1 To UBound(arr)
If dt.exists(arr(i, 1)) Then
s = s & Chr(10) & "第" & i & "行" & arr(i, 1)
End If
Next
MsgBox F & Chr(10) & s: s = ""
Next
Set dt = Nothing
End Sub
没有附件只能假设要查找的数据在A列，输出的工作表名称不详现用消息框代替

热心网友时间：2022-03-18 14:36

可以QQ说。