Isso exigirá o VBA. Considere este cenário:
A validação de dados na coluna D é alimentada pelos valores LongList na coluna A.
Um Evento de Mudança de Planilha atuará na coluna D, fará um Vlookup para obter o valor curto e substituir o valor da célula atual. Aqui está o código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim short As String
If Not Intersect(Target, Range("D:D")) Is Nothing Then
short = Application.VLookup(Target.Value, Range("A1:B4"), 2, False)
Application.EnableEvents = False
Target = short
Application.EnableEvents = True
End If
End Sub
Clique com o botão direito do mouse na guia Sheet e selecione "View Code". Cole o código acima na janela de código. Ajuste referências de célula para refletir sua pasta de trabalho.