Здравей,
До колкото знам, няма вградена функция в ексел, която да направи това. Може да си създадеш такава функция, ето как се прави:
1. отваряш VBA editor в ексел (alt+ F11)
2. дясно копче на modules -> insert -> module
3. пействаш следния код:
Function MyVlookup(lookupValue As Variant, lookuprange As Range, resultsRange As Range) As String
Dim s As String 'Results placeholder
Dim sTmp As String 'Cell value placeholder
Dim r As Long 'Row
Dim c As Long 'Column
Const strDelimiter = "|||" 'Makes InStr more robust
s = strDelimiter
For r = 1 To lookuprange.Rows.Count
For c = 1 To lookuprange.Columns.Count
If lookuprange.Cells(r, c).Value = lookupValue Then
'I know it's weird to use offset but it works even if the two ranges
'are of different sizes and it's the same way that SUMIF works
sTmp = resultsRange.Offset(r - 1, c - 1).Cells(1, 1).Value
If InStr(1, s, strDelimiter & sTmp & strDelimiter) = 0 Then
s = s & sTmp & strDelimiter
End If
End If
Next
Next
'Now make it look like CSV
s = Replace(s, strDelimiter, ",")
If Left(s, 1) = "," Then s = Mid(s, 2)
If Right(s, 1) = "," Then s = Left(s, Len(s) - 1)
MyVlookup = s 'Return the function
End Function
4. Вече имаш нова функция =MyVlookup()
5. Ако в колона C са стойностите с числата , в D1 пишеш следната формула и влачиш надолу:
=MyVlookup(C1,$A$1:$A$7,$B$1:$B$7)
6. За да запазиш файла с новата функция, трябва да запазиш документа като macro-enabled, т.е. file ->save as -> Excel macro enabled workbook
Това е всичко, успех!
