Как да направите vlookup и да върнете множество стойности без дубликати в Excel?
Понякога може да искате да направите vlookup и да върнете няколко съответстващи стойности в една клетка наведнъж. Но ако има някои повтарящи се стойности, попълнени в върнатите клетки, как бихте могли да игнорирате дубликатите и да запазите само уникалните стойности, когато връщате всички съвпадащи стойности, както е показано на следващата екранна снимка в Excel?
Vlookup и връщане на множество съвпадащи стойности без дубликати чрез използване на дефинирана от потребителя функция
Следният VBA код може да ви помогне да върнете множество съвпадащи стойности без дубликати, моля, направете следното:
1. Задръжте натиснат Alt + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Vlookup и връщане на множество уникални съответстващи стойности:
Function MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim xDic As New Dictionary
Dim xRows As Long
Dim xStr As String
Dim i As Long
On Error Resume Next
xRows = LookupRange.Rows.Count
For i = 1 To xRows
If LookupRange.Columns(1).Cells(i).Value = Lookupvalue Then
xDic.Add LookupRange.Columns(ColumnNumber).Cells(i).Value, ""
End If
Next
xStr = ""
MultipleLookupNoRept = xStr
If xDic.Count > 0 Then
For i = 0 To xDic.Count - 1
xStr = xStr & xDic.Keys(i) & ","
Next
MultipleLookupNoRept = Left(xStr, Len(xStr) - 1)
End If
End Function
3. След като въведете кода, щракнете Инструменти > Препратки в отвореното Microsoft Visual Basic за приложения прозорец и след това изскочи Препратки – VBAProject диалогов прозорец, проверете Microsoft Scripting Runtime опция в Налични препратки списъчно поле, вижте екранна снимка:
4, След това кликнете OK за да затворите диалоговия прозорец, запишете и затворете прозореца с код, върнете се в работния лист и въведете тази формула: =MultipleLookupNoRept(E2,A2:C17,3) в празна клетка, където искате да изведете резултата, натиснете Въведете ключ, за да получите правилния резултат, от който се нуждаете. Вижте екранна снимка:
Забележка: В горната формула, E2 е критериите, които искате да направите vlookup, A2:C17 е диапазонът от данни, който искате да използвате, числото 3 е номерът на колоната, която съдържа върнатите стойности.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!