excel - 尝试创建一个函数来确定另一个电子表格中是否存在字符串

Question

本质上，我想要的是检查字符串是否出现在另一个电子表格中，并根据它是否存在于另一个工作表中返回 TRUE 或 FALSE。为了检查单个单元格是否与另一个单元格完全相同，公式相对简单:

在第二张纸、相同的列和单元格中检查 A1 的示例。

=AND(IF(A1=SheetX!A1, TRUE, FALSE),NOT(ISBLANK(A1)))

但是，如果您尝试将 SheetX!A1 替换为 SheetX!A1:A1001，例如，true 的响应出现在找到相同值的行中 Sheet!X 我不想要，更不用说溢出问题(其中我可以应付)。

我能想到解决这个问题的唯一方法是使用 =OR 并说明所有单元格......按顺序......像这样......

=OR(AND(IF(A1=Sheet2!$A$1,TRUE,FALSE),NOT(ISBLANK(A1))),AND(IF(A1=Sheet2!$A$2,TRUE,FALSE),NOT(ISBLANK(A1)),AND(IF(A1=Sheet2!$A$3,TRUE,FALSE),NOT(ISBLANK(A1)),AND(IF(A1=Sheet2!$A$4,TRUE,FALSE),NOT(ISBLANK(A1)))))

… ETC

这有效并给出了正确的答案......但是......呃......用外行的话......一点也不可行。

一定有一些我错过的东西很容易修复......但经过数小时的思考后我找不到它。

非常感谢任何能发现问题的人:)

Answer 1

考虑以下用户定义函数:

Public Function IsItInAnotherSheet(s As String, shname As String) As Boolean
    Application.Volatile
    Dim rng As Range, ws As Worksheet
    Set ws = Sheets(shname)
    Set rng = ws.Cells.Find(What:=s, after:=ws.Range("A1"))
    IsItInAnotherSheet = Not rng Is Nothing
End Function

例如: