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 Function4. 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?
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
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á!
