エクセルの関数について質問です。

文字数が多い方を優先されるようにしてみました。

例えば「ああえ　魚サカナ　肉ニク　野菜ヤサイ　ささ」の場合

文字群に「ああ」と「ああえ」があれば、「ああえ」になります。

ただし、「ああえ　魚サカナ　肉ニああおク　野菜ヤサイ　ささ」の場合

文字群に「ああえ」と「ああお」がある場合はどちらか（下の方）になります。

ループが増えてますので処理が少し重くなっているかもしれません。

Function VLOOKUPZ(r1 As Range, r2 As Range, i As Integer) As String
    Dim rs As Range
    Dim j As Integer
    Dim r As Range
    Dim s As String
    Dim k As Integer
    Dim myCount As Integer
    
    k = 0
    myCount = 0
    If r2.Columns.Count >= i Then
        Set rs = Range(Cells(r2.Row, r2.Column + i - 1), Cells(r2.Row + r2.Rows.Count - 1, r2.Column + i - 1))
        While myCount < r2.Rows.Count
            For Each r In rs
                If Len(r.Value) = k Then
                    If InStr(1, r1.Value, r.Value) > 0 Then
                        s = r.Value
                    End If
                    myCount = myCount + 1
                End If
            Next
            k = k + 1
        Wend
    End If
    VLOOKUPZ = s
End Function