Conas formáidiú foinse na cille cuardaigh a chóipeáil agus Vlookup in Excel á úsáid agat?
Sna hailt roimhe seo, labhair muid faoi dhath cúlra a choinneáil nuair a bhíonn luachanna vlookup in Excel. Anseo san alt seo, táimid chun modh a thabhairt isteach chun formáidiú cille uile na cille mar thoradh air a chóipeáil agus Vlookup á dhéanamh in Excel. Déan mar a leanas le do thoil.
Cóipeáil formáidiú foinse agus tú ag úsáid Vlookup in Excel le feidhm atá sainithe ag an Úsáideoir
Cóipeáil formáidiú foinse agus tú ag úsáid Vlookup in Excel le feidhm atá sainithe ag an Úsáideoir
Má cheaptar go bhfuil tábla agat mar atá thíos an pictiúr a thaispeántar. Anois ní mór duit a sheiceáil an bhfuil luach sonraithe (i gcolún E) i gcolún A agus an luach comhfhreagrach a thabhairt ar ais le formáidiú i gcolún C. Déan mar a leanas le do thoil chun é a bhaint amach.
1. Sa bhileog oibre tá an luach a theastaíonn uait a fheiceáil, cliceáil ar dheis ar an táb bileog agus roghnaigh Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:
2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil thíos an cód VBA isteach i bhfuinneog an Chóid.
Cód VBA 1: Vlookup agus luach ar ais le formáidiú
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
3. Ansin cliceáil Ionsáigh > Modúil, agus cóipeáil an cód VBA 2 thíos i bhfuinneog an Mhodúil.
Cód VBA 2: Vlookup agus luach ar ais le formáidiú
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Else
LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
End If
Application.ScreenUpdating = True
End Function
4. cliceáil uirlisí > tagairtí. Ansin seiceáil an Runtime Script Microsoft bosca sa Tagairtí - VBAProject bosca dialóige. Féach an pictiúr:
5. Brúigh an Eile + Q eochracha chun imeacht as an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
6. Roghnaigh cill bhán in aice leis an luach amharc, agus ansin cuir isteach an fhoirmle =LookupKeepFormat(E2,$A$1:$C$8,3) isteach sa Bar Foirmle, agus ansin brúigh an Iontráil eochair.
nótaí: San fhoirmle, E2 tá an luach a bheidh tú ag breathnú, $ A $ 1: $ C $ 8 is é an raon tábla, agus uimhir 3 ciallaíonn sé go bhfuil an luach comhfhreagrach a fhillfidh tú ar ais sa tríú colún den tábla. Athraigh iad de réir mar is gá duit.
7. Coinnigh ort an chéad chill toradh a roghnú, agus ansin tarraing an Láimhseáil Líon isteach chun na torthaí go léir a fháil chomh maith lena bhformáidiú mar a léirigh an pictiúr thíos.
Earraí gaolmhara:
- Conas dath cúlra a bhreathnú agus a chur ar ais mar aon leis an luach cuardaigh in Excel?
- Conas formáid dáta a bhreathnú agus a chur ar ais in ionad na huimhreach in Excel?
- Conas vlookup agus suim a úsáid in Excel?
- Conas luach tuairisceáin a fheiceáil i gcill in aice láimhe nó sa chéad chill eile in Excel?
- Conas luach a amharc agus fíor nó bréagach / tá nó níl in Excel a thabhairt 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á!