您仍然可以使用您的方法，并通过强制使用分隔符来防止子字符串匹配：

Function GenderTitleMismatch(title As Variant, gender As Variant) As Boolean

    title = UCase(Trim(title)) & "/"
    gender = UCase(Trim(gender))
    
    GenderTitleMismatch = False
    
    If gender = "M" And UBound(Filter(Array("MR/", "DR/"), title)) < 0 Then
        GenderTitleMismatch = True
    End If
    
    If gender = "F" And UBound(Filter(Array("MRS/", "MS/", "DR/", "MISS/"), title)) < 0 Then
        GenderTitleMismatch = True
    End If

End Function

但是你可以进一步简化它，像这样：

Function GenderTitleMismatch(title As Variant, gender As Variant) As Boolean

    Dim srch As String: srch = UCase(Trim(title)) & "/" & UCase(Trim(gender))
    
    Dim valid(): valid = Array("MR/M", "DR/M", "MRS/F", "MS/F", "DR/F", "MISS/F")

    GenderTitleMismatch = UBound(Filter(valid, srch)) < 0

End Function

标题性别不匹配

Function TitleGenderMismatch(ByVal Title, ByVal Gender) As Boolean
    
    Dim Titles(): Titles = Array("mrm", "drm", "mrsf", "msf", "missf", "drf")
    
    Dim tStr As String: tStr = Trim(CStr(Title))
    'tStr = Replace(tStr, ".", "") ' remove the dot: e.g. USA, Canada...
    ' Allow title with name e.g. 'Mr John Smith'.
    Dim tSpacePosition As Long: tSpacePosition = InStr(tStr, " ")
    If tSpacePosition > 0 Then tStr = Left(tStr, tSpacePosition - 1)
    
    Dim gStr As String: gStr = Trim(CStr(Gender))
    ' Allow words: e.g. 'male' and 'feemale' instead of 'm' and 'f'.
    gStr = Left(gStr, 1)
    
    Dim IsMisMatch As Boolean ' '.Match' is case-insensitive
    IsMisMatch = IsError(Application.Match(tStr & gStr, Titles, 0))
    
    TitleGenderMismatch = IsMisMatch

End Function