如何使用公式确定某一数据实在工作簿中的哪个Sheet中

其实你可以合并工作表，合并的数据加上一列显示原工作表名。

要是只有三两个sheet,那查询函数+if判断还凑合，再多那就没法搞。
自定义函数就简单了，for循环查找。如果找到直接获取activesheet.name

Sub aa() '函数写在汇总表里面
For k = 1 To Worksheets.Count - 1
For n = 1 To Range("A65536").End(xlUp).Row
For i = 1 To 10 '你所有表格最多行数，如不确定搞成65536
For j = 1 To 10 '你所有表格最多列数，如不确定搞成65536（数越大越慢）
If Worksheets(k).Cells(i, j) = Cells(n, 1) Then '这里假设你的汇总表是最后一个表，要查找的数据在A列
Cells(k, 2) = Worksheets(k).Name
j = 10 '等于循环条件里最大值以便跳出循环
i = 10 '等于循环条件里最大值以便跳出循环
End If
Next
Next
Next
Next
End Sub
'因为不知道你的实际数据样式，做的大范围匹配，如果数据单在某一列可以去掉一层循环。