Question

我有一个函数，其目的是获取一个字符串并在电子表格的第一行搜索包含该字符串的单元格，如果他们这样做，则选择该列并将其值赋给变量。但是，如果没有包含该字符串，我希望它完全退出子例程。我尝试在函数中抛出Exit Sub命令，但我不断收到错误消息。该函数永远不会被主子调用，而是从子调用的其他函数调用。有没有人对如何让这个工作有任何想法？这是我对该函数的代码：

Function ColSearch(Heading As String) As Integer
'Determines the column number of the desired heading

Sheets("CS-CRM Raw Data").Select
Sheets("CS-CRM Raw Data").Unprotect

    On Error Resume Next
    If Sheets("CS-CRM Raw Data").Cells.Find(What:=Heading, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Column > 0 Then
        myCol = Sheets("CS-CRM Raw Data").Cells.Find(What:=Heading, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Column
    Else
        End
    End If

ColSearch = myCol

End Function

Answer 1

您只需添加Exit Function即可返回。

函数中的VBA退出子程序命令

1 个答案: