excel - 从不同工作表中的单个列中查找字符串并返回地址

Question

我正在尝试在不同的工作表中查找位于特定列中的字符串(在本例中，名称为“Company”)。这是我写的(“CompanyName”是搜索字符串):

Public Function GetCompanyNumber(CompanyName) As String
    ThisWorkbook.Worksheets("Company").Select
    Range("B:B").Select
    GetCompanyNumber = Selection.Find(What:=CompanyName, After:=[A1], LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Address
End Function

但是，每次失败时都会显示 Select method range class failed并将我返回到第 Range("B:B").Select 行.我写了这个，以便我的搜索仅限于 B 列(最好在单元格编号 B20 内)。我怎样才能解决这个问题？

谢谢。

如果匹配，则搜索字符串包含特殊字符，如 ö

Answer 1

你最好先检查一下Find()导致错误，如果没有，则设置 GetCompanyNumber找到手机地址

此外，由于您正在寻找特殊字符，我认为使用 LookIn:=xlValues 会更合适。而不是 LookIn:=xlFormulas

Public Function GetCompanyNumber(CompanyName As String) As String
    Dim rng As Range

    Set rng = ThisWorkbook.Worksheets("Company").Range("B:B").Find(What:=CompanyName, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)

    If Not rng Is Nothing Then GetCompanyNumber = rng.Address
End Function