Excel
From neil.tappsville.com
Jump to navigationJump to searchOvercome Vlookup key limit
Open excel, alt-f11, this workbook - insert module
Function [[My Vlookup]](Lval As Range, c As Range, oset As Long) As Variant Dim cl As Range For Each cl In c.Columns(1).Cells : If UCase(Lval) = UCase(cl) Then : [[My Vlookup]] = cl.Offset(, oset - 1) : Exit Function : End If : Next End Function