Conas luachanna iolracha a bhreathnú agus a thabhairt ar ais gan dúbailtí in Excel?
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
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.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!