Note: The other languages of the website are Google-translated. Back to English

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:


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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (42)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
tugann sé Earráid Tiomsú dom, Earráid chomhréire

le do thoil cabhrú leat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Nuashonraíodh an cód san alt. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fuair ​​​​mé an earráid tiomsaitheora freisin.
Faigheann sé ceartú má athraíonn tú an athróg seo a leanas le " "iarbhír. Níl ';' i lár.
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Gabh ár leithscéal as an botún, tá an cód nuashonraithe san alt.
Ba cheart go mbeadh " " dhá chomhartha athfhriotail sa bhotún. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fuair ​​​​mé an earráid chéanna.

Beidh ort an " " do " " iarbhír" a athrú, gan ';' mar a léirítear thíos
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "

LookupKeepFormat=""
xDic.Add Application.Caller.Address""
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Gabh ár leithscéal as an botún, tá an cód nuashonraithe san alt. Go raibh maith agat as a roinnt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo iontach, go raibh maith agat! Is é an t-aon fhadhb atá ann, feicim go n-oibríonn sé go breá má táim ag breathnú suas ar an mbileog chéanna, ach nach féidir liom é a oibriú agus mé ag iarraidh cuardach a dhéanamh i mbileog ar leith leis na sonraí foinseacha. Leanfaidh sé ag iarraidh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Julia, ceartaigh na línte seo:
in Feidhm LookupKeepFormat:
xDic.Cuir Feidhmchlár.Caller.Seoladh, xFindCell.Offset(0, xCol - 1).Seoladh & "|" & LookupRng.Parent.Name

san Fho-Bileog Oibre_Athrú:
Bileoga(Split(xDic.Items(I),"|")(1)).Raon(Split(xDic.Items(I),"|")(0)).Cóip
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey Hugo,


Tá an fhadhb chéanna agam le Julia. Ní oibríonn sé ar bhileoga eile. An bhféadfá cabhrú le cód a scríobh don fheidhm iomlán agus don fho-bhileog oibre? Níl mé cinnte cá háit is ceart xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1) a ionadú/a chur isteach).Seoladh & "|" & LookupRng.Parent.Nam and Sheets(Split(xDic.Items(I),"|")(1)).Range(Split(xDic.Items(I),"|")(0)).Cóip


buíochas ar ais
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Buíoch as an obair leantach Hugo!
Ar an drochuair, cosúil le Vi, is duine nua mé chun oibriú amach cén áit ar cheart do shocruithe cóid molta a chur isteach...

Go raibh maith agat arís, bíodh lá iontach agat :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia Duit


Tá iarracht déanta agam an cód a úsáid ach tá an earráid á fáil agam sa phictiúr faoi iamh. Beidh gach cúnamh a bheith fíor-bhuíoch.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Gabh ár leithscéal as an botún, tá an cód nuashonraithe san alt. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Ní fhaighim aon earráidí agus déanann sé an cuardach, ach toisc go bhfuil mo luach cuardaigh ar bhileog oibre eile (cás níos mó seans ann), ní tharraingíonn sé an fhormáidiú. An bhfuil tweak ar an gcód is féidir liom a dhéanamh chuige sin? (Bí an-sonrach maidir leis an áit a gcaithfidh an t-athrú dul mar is duine nua códaithe mé) Go raibh maith agat! Tá mé ar bís an ghné seo a chur le ceann de mo scarbhileoga!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ádh mór ar an gceist seo, conas is féidir linn féachaint ar an bhformáidiú trasna bileoga?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chomh maith leis sin ag iarraidh an tweak.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chomh maith leis sin, má chuirim d'fhoirmle leis mar chuid de ráiteas "Má" (féach thíos), formáidíonn sé an chill, áfach, tá sé ag iarraidh LOL (nó ar a laghad is cosúil. Cill amháin, chuaigh an téacs scáthaithe agus trom le teorainn uachtarach ar an chill; cill eile, an téacs lárnach)


=IF($F19 = ""," "",LookupKeepFormat(F19, 'Mír #s'!$A$1:$M$1226,2))
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhain mé triail as an gceann seo agus an ceann a tharraingíonn díreach an cúlra datha agus tá an earráid chéanna á fháil agam. Earráid tiomsaithe: Braitheadh ​​ainm débhríoch. Cliceáil mé OK agus cuireann sé béim ar xDic. Aon mholtaí? Níl an-eolach orm faoi seo ar fad mar sin cabhraigh/mínigh le do thoil :) go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Jeni,
Ná déan dearmad an rogha Microsoft Script Runtime a chumasú mar atá luaite i gcéim 4.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit. Chruthaigh mé scarbhileog bán agus dhúblaigh mé do shampla in Excel 2013, ach lean ort ag fáil earráid Tiomsaithe: Tá earráid chomhréire agus Dim I As Long aibhsithe. An bhfuil rud éigin ar iarraidh orm? Ba bhreá liom é seo a chur ag obair. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Laura,
Ná déan dearmad an rogha Microsoft Script Runtime a chumasú mar atá luaite i gcéim 4.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá mé ag baint úsáide as an gcód thuas in Excel 2010 gan aon fadhbanna go dtí seo. Mar sin féin, uasghrádaíodh mé le déanaí go Office 2016 agus anois tá an cód tuairteála Excel gach uair a dhéanaim iarracht níos mó ná sraith amháin a líonadh. Ar an drochuair, níl sé ag tabhairt earráide dom seachas "Tá Microsoft Excel stoptha ag obair". Bhí mé ag smaoineamh ar tháinig tú trasna ar an gceist seo roimhe seo, agus an bhfuil rud éigin le déanamh agam le go n-oibreoidh sé in 2016. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Leigh,
Oibríonn an cód go maith i mo Excel 2016. Táimid ag iarraidh a uasghrádú an cód chun an fhadhb a réiteach. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Go raibh maith agat as an gcód. Ní fhaighim aon teachtaireacht earráide ach ní oibríonn an fhoirmle ach mar a dhéanfadh vlookup gnáth. An bhféadfá cabhrú le do thoil? Go raibh maith agat as do chuid ama.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit

Tá an cheist chéanna agam, an ndearna tú amach conas é a réiteach?

Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit fuair mé an earráid "a thiomsú Earráid: Braitheadh ​​ainm débhríoch: xDic
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit fuair mé an earráid "a thiomsú Earráid: Braitheadh ​​ainm débhríoch: xDic
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh, tá mé nua maidir le VBA a úsáid agus rinne mé iarracht an cód seo a úsáid i mo scarbhileog, ach ní thagann an fhormáidiú téacs ar an gcluaisín Rec2 anonn go cluaisín Rec nuair a úsáidtear cuardach. Bheifí an-bhuíoch as aon chabhair. Go raibh maith agat Pat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seo é an file agus pic
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Faighim an earráid ainm débhríoch chéanna - ar éirigh le haon duine í a réiteach ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Faighim an earráid ainm débhríoch chéanna - ar éirigh le haon duine í a réiteach ?
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL