xRows = LookupRange.Rows.Count
For i = 1 To xRows
If LookupRange.Columns(1).Cells(i).Value = Lookupvalue And Not IsEmpty(LookupRange.Columns(1).Cells(i).Value) Then
xDic.Add LookupRange.Columns(ColumnNumber).Cells(i).Value, ""
End If
Next
Thanks,
Uaireanta, b’fhéidir gur mhaith leat luachanna iolracha comhoiriúnaithe a vlookup agus a chur ar ais i gcill aonair ag an am céanna. Ach, má tá roinnt luachanna arís agus arís eile daonra sna cealla ar ais, conas a d’fhéadfá neamhaird a dhéanamh de na dúblacha agus gan na luachanna uathúla a choinneáil ach na luachanna meaitseála uile a thabhairt ar ais mar a leanas an pictiúr a thaispeántar in Excel?
Vlookup agus seol luachanna iolracha meaitseála gan dúbailtí trí Fheidhm Sainithe Úsáideora a úsáid
Is féidir leis an gcód VBA seo a leanas cabhrú leat luachanna meaitseála iolracha a thabhairt ar ais gan dúbailtí, déan mar seo é le do thoil:
1. Coinnigh síos an Alt + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Vlookup agus seol luachanna iolracha comhoiriúnaithe ar ais:
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. Tar éis duit an cód a chur isteach, ansin cliceáil uirlisí > tagairtí san oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus ansin, sa popped amach Tagairtí - VBAProject bosca dialóige, seiceáil Microsoft Scripting Runtime rogha sa Tagairtí atá ar Fáil bosca liosta, féach an scáileán:
4. Ansin cliceáil OK chun an bosca dialóige a dhúnadh, an fhuinneog cód a shábháil agus a dhúnadh, filleadh ar an mbileog oibre, agus an fhoirmle seo a iontráil: =MultipleLookupNoRept(E2,A2:C17,3) isteach i gcill bhán inar mian leat an toradh a aschur, brúigh Iontráil eochair chun an toradh ceart a fháil de réir mar is gá duit. Féach an pictiúr:
nótaí: San fhoirmle thuas, E2 na critéir ar mhaith leat a vlookup, A2: C17 an raon sonraí a theastaíonn uait a úsáid, an uimhir 3 is í uimhir an cholúin ina bhfuil na luachanna ar ais.