你可以把所有的东西放在数组中，然后循环它们来找到值：

Sub employeelookup()
    Dim mn_num As Double
    mn_num = Val(SalesForm.BHSDMAINNUMBERLF.Value)
    Dim rec As String
    rec = SalesForm.BHSDRECORDTD.Value
    
    Dim lkpmnArr As Variant
    lkpmnArr = Intersect(Worksheets("TELEDATA").UsedRange, Worksheets("TELEDATA").Range("E:E")).Value
    
    Dim lkprecArr As Variant
    lkprecArr = Intersect(Worksheets("TELEDATA").UsedRange, Worksheets("TELEDATA").Range("AI:AI")).Value
    
    Dim lkotArr As Variant
    lkotArr = Intersect(Worksheets("TELEDATA").UsedRange, Worksheets("TELEDATA").Range("F:F")).Value
    
    Dim otpt As String
    otpt = "Not Found"
    
    Dim i As Long
    For i = LBound(lkpmnArr, 1) To UBound(lkpmnArr, 1)
        If lkpmnArr(i, 1) = mn_num And lkprecArr(i, 1) = rec Then
            otpt = lkotArr(i, 1)
            Exit For
        End If
    Next i
    
    
    SalesForm.BHSDEMPLOYEETD.Value = otpt
End Sub

可以使用Evaluate：

Sub employeelookup()
    'Whether v1 and/or v2 are quoted depends on if numeric or text
    '  here <v1> is numeric and <v2> is not
    Const FRM As String = "XLOOKUP(<v1>&<v2>,E:E&AI:AI,H:H)"
    Dim res, f
    
    'replace the placeholders in the formula with values from your form
    f = Replace(FRM, "<v1>", val(SalesForm.BHSDMAINNUMBERLF.value))
    f = Replace(f, "<v2>", SalesForm.BHSDRECORDTD.value)
    
    'evaluate in context of sheet TELEDATA
    res = Worksheets("TELEDATA").Evaluate(f)
    
    If IsError(res) Then  'if got an error then no match was made
        Debug.Print "No match"
    Else
        Debug.Print res
    End If
End Sub