excel - 从函数中跳过错误的 VBA 错误语句

Question

我有这个函数来根据列标题中的字符串获取列字母。问题是当函数找不到字符串时会发生错误。我想添加一条错误语句以跳过该函数并在字符串不存在的情况下继续运行代码。有什么建议我该怎么做？

    Sub TEST()
    Dim ws As Worksheet
    Set ws = Application.ThisWorkbook.Worksheets(1)
    ws.Activate
     
    Dim sResponsable As String
    Dim sTipo As String

    Call Find_Column("Responsable", sResponsable)
    Call Find_Column("Tipo de componente", sTipo)
End Sub

Private Sub Find_Column(Name As String, Column As String)

    ' Activate Worksheet
    Dim ws As Worksheet
    Set ws = Application.ThisWorkbook.Worksheets(1)
    ws.Activate
    
    Dim rngName As Range
    
    With ws.Rows(1)
        Set rngName = .Find(Name, .Cells(.Cells.Count), xlValues, xlWhole)
        ' Calculate Name Column Letter.
        Column = Split(rngName.Address, "$")(1)
                
    End With
    
End Sub

标签： excelvba