Conas luachanna amharc iolracha a thabhairt ar ais i gcill scartha camóg amháin?

In Excel, is féidir linn feidhm VLOOKUP a chur i bhfeidhm chun an chéad luach comhoiriúnaithe a thabhairt ar ais ó chealla tábla, ach, uaireanta, caithfimid na luachanna meaitseála go léir a bhaint agus ansin iad a dheighilt le teorantóir ar leith, mar shampla camóg, Fleasc, srl. cill mar a thaispeántar an pictiúr a leanas. Conas a d’fhéadfaimis luachanna ilbhreathnaithe a fháil agus a thabhairt ar ais i gcill scartha camóg in Excel?

camóg luacha iolracha camóg scartha 1

Fill luachanna amharc iolracha i gcill scartha camóg le Feidhm Sainithe ag an Úsáideoir

Fill luachanna amharc iolracha i gcill scartha camóg le Kutools le haghaidh Excel

Fill luachanna amharc iolracha i gcill scartha camóg le Feidhm Sainithe ag an Úsáideoir

De ghnáth, ní bhíonn aon bhealach díreach ann dúinn na luachanna meaitseála iolracha a bhaint agus a chur ar ais agus iad a dheighilt le camóg in aon chill amháin, anseo, is féidir leat Feidhm Sainmhínithe ag Úsáideoir a chruthú chun an post seo a réiteach, déan mar a leanas 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: Cuir luachanna iolracha amharc ar ais i gcill scartha le camóga

Function SingleCellExtract(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
'Updateby Extendoffice
    Dim I As Long
    Dim xRet As String
    For I = 1 To LookupRange.Columns(1).Cells.Count
        If LookupRange.Cells(I, 1) = LookupValue Then
            If xRet = "" Then
                xRet = LookupRange.Cells(I, ColumnNumber) & Char
            Else
                xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
            End If
        End If
    Next
    SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function

3. Ansin sábháil an cód seo agus dún fuinneog an Mhodúil, téigh ar ais chuig do bhileog oibre, agus iontráil an fhoirmle seo: = SingleCellExtract (D2, A2: B15,2, ",") isteach i gcill bhán ar mhaith leat an toradh a thabhairt ar ais. Agus ansin brúigh Iontráil eochair chun an toradh a fháil, féach an scáileán:

camóg luacha iolracha camóg scartha 2

nótaí: San fhoirmle thuas:

D2: léiríonn sé na luachanna cille ar mhaith leat breathnú suas;

A2: B15: an bhfuil an raon sonraí a theastaíonn uait na sonraí a fháil;

2: is í uimhir 2 uimhir an cholúin go bhfuil an luach meaitseála le tabhairt ar ais;

,: is é an camóg an deighilteoir a theastaíonn uait na luachanna iolracha a scaradh.

Is féidir leat iad a athrú de réir do riachtanas.

Fill luachanna amharc iolracha i gcill scartha camóg le Kutools le haghaidh Excel

Má tá tú Kutools le haghaidh Excel, ní bheidh an tasc seo ina fhadhb a thuilleadh. Tá an Sraitheanna Comhcheangail Casta féadfaidh fóntais cabhrú leat na luachanna coibhneasta uile atá bunaithe ar cholún a chur le chéile.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

Téigh go dtí Íoslódáil
Triail In Aisce 30 lá Ceannach
PayPal / MyCommerce

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Roghnaigh an raon sonraí a theastaíonn uait na luachanna meaitseála uile a chomhcheangal bunaithe ar cholún.

2. Cliceáil Kutools > Cumaisc & Scoilt > Sraitheanna Comhcheangail Casta, féach ar an scáileán:

3. Sa an Comhcheangail Sraitheanna Bunaithe ar an gColún bosca dialóige, cliceáil ainm an cholúin ar mhaith leat a chur le chéile bunaithe ar, agus ansin cliceáil Eochair Bhunscoile cnaipe, féach ar an scáileán:

camóg luacha iolracha camóg scartha 4

4. Ansin cliceáil ainm colún eile ar mhaith leat a luachanna comhoiriúnaithe a chur le chéile, agus cliceáil Chomhcheangail chun deighilteoir amháin a roghnú chun na luachanna comhcheangailte a scaradh, féach an scáileán:

camóg luacha iolracha camóg scartha 5

5. Ansin cliceáil OK cnaipe, tá na cealla comhfhreagracha uile a bhfuil an luach céanna orthu curtha le chéile i gcill amháin atá scartha leis an camóg, féach scáileáin scáileáin:

Cliceáil chun níos mó sonraí a fháil faoin bhfóntas Advanced Advanced Combine Rows seo ...

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!

Taispeántas: Cuir luachanna amharc iolracha ar ais i gcill scartha camóg le Kutools le haghaidh Excel

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

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á.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

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á!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

Comments (16)

Rátáil 5 as 5 · rátálacha 2

GANGADHAR

thart ar 5 bliain ó shin

#19810

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Cé go bhfuilim chun an modúl a ghreamú agus a shábháil, tá an chuma ar an scéal go bhfuil an chuma ar an scéal go bhfuil caillteanas suntasach ag baint le seiceálaí feidhmiúlachta

Freagra

Aoi

thart ar 5 bliain ó shin

#20594

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Go raibh maith agat as an bpost seo. An bhfuil a fhios agat conas a rachainn i mbun an dá shlánuimhir ar leith atá á gcruthú aige seo a ionramháil. Mar shampla, deirtear go dtáirgíonn an fheidhm '=SingleCellExtract' anois (1 , 2). An bhfuil bealach ann chun cill a bheith in aice leis (1+.5 , 2+.5)?

Freagra

K Ray

thart ar 5 bliain ó shin

#21678

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Oibríonn sé seo ach slows síos mo excel majorly! Aon leideanna chun cabhrú le luas?

Freagra

A Bharda

thart ar 5 bliain ó shin

#21834

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Ní oibríonn sé seo ach. Ní raibh mé in ann é a fháil chun oibriú i m'iarratas féin, mar sin chóipeáil/greamaigh mé an vba agus an fhoirmle agus chuir sé earráid ar ais gach uair

Freagra

M Macklam

thart ar 5 bliain ó shin

#23661

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

go raibh maith agat, ar an gcéad dul síos d'éirigh liom é seo a chur ag obair gan an mhoilliú feidhmíochta. Tá luachanna á n-úsáid agam seachas an téacs sin agus mar sin is í an cheist atá agam ná go bhfuil mé ag iarraidh iad siúd go léir a bhfuil níos lú ná 19 bpointe i liosta a rá acu a thabhairt ar ais. An féidir leis an Sliocht aonchillín oibriú chuige sin nó an gcaithfidh sé a bheith ina luach sonrach?

Freagra

thart ar 4 bliain ó shin

#24897

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Briseann ordú VB nuair a bhíonn an raon níos faide ná 154 sraitheanna (ie : B154)...

Freagra

abhi

thart ar 2 bliain ó shin

#32700

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Tagann an earráid chun solais má mhéadaítear méid an eagar

Freagra

Biplab Das

thart ar 2 bliain ó shin

#32802

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Nuair a mheaitseálann 2 chritéar, ansin seolfaidh siad Luachanna Iolracha Cuardach ar ais i gCill Scartha Camóg amháin
A2=B2 Ansin Mar thoradh ar an Raon de réir "SingleCellExtract" - Le do thoil.......

Freagra

Kathleen

thart ar 9 mhí ó shin

#37877

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Maidin mhaith,

d'oibrigh an cód VBA go foirfe le mo bhileog oibre, go leor soiléir agus simplí, áfach, bhí mé ag iarraidh bealach a aimsiú chun excel a insint ach na luachanna uathúla a thabhairt ar ais. An mbeadh sé sin indéanta an cód céanna seo a úsáid?

Freagra

Tuarascáil

Rátáil 5 as 5

Manicanta

thart ar 6 mhí ó shin

#39460

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Haigh,

Teastaíonn uaim cód bailíochtaithe cruinn le haghaidh luachanna iolracha scartha le camóg agus spás le haghaidh gach luacha.

Sampla:
Lucy, Tom, Nicol, Akash, Apple

Seinn arís le do thoil má tá aon mholtaí agat.

Freagra

Rátáil 4.5 as 5

spéireang Manicanta

thart ar 5 mhí ó shin

#39549

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit, Manicanta
Chun na luachanna iolracha a scaradh le camóg agus spás, níl le déanamh agat ach spás a chur leis taobh thiar den chamóg, athraigh an fhoirmle mar seo: =Sliocht SingleCell(D2,A2:B15,2,", ").
Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!

Freagra

Tuarascáil

Manicanta spéireang

thart ar 5 mhí ó shin

#39559

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit Skyyang,

Go raibh maith agat as do chuid athimeartha!

Bhain mé triail as cheana féin ar an mbealach céanna ach i luach na cille ceann deireanach camóg breise (,) ag teacht thíos an sampla.

Lucy, Tom, Nicol, Akash, Apple,

Ní oibreoidh sé seo do chomhad Json, mar sin ba mhaith liom luachanna a bheith scartha le camóg agus spás mar atá thíos.

Lucy, Tom, Nicol, Akash, Apple

Go raibh maith agat!

Freagra

spéireang Manicanta

thart ar 5 mhí ó shin

#39567

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit, Manikanta
Sa chás seo, is féidir leat an Fheidhm Shainithe Úsáideora thíos a chur i bhfeidhm:

Function MultipleValues(work_range As Range, criteria As Variant, merge_range As Range, Optional Separator As String = ",") As Variant
Dim outcome As String
On Error Resume Next
If work_range.Count <> merge_range.Count Then
MultipleValues = CVErr(xlErrRef)
Exit Function
End If
For i = 1 To work_range.Count
If work_range.Cells(i).Value = criteria Then
outcome = outcome & Separator & merge_range.Cells(i).Value
End If
Next i
If outcome <> "" Then
outcome = VBA.Mid(outcome, VBA.Len(Separator) + 1)
End If
MultipleValues = outcome
Exit Function
End Function

Tar éis duit an cód a ghreamú, bain úsáid as an bhfoirmle seo: =MultipleValues($A$2:$A$15,D2,$B$2:$B$15,", ")

Bain triail as, le do thoil, tá súil gur féidir leis seo cabhrú leat!
Má tá fadhb ar bith eile agat fós, déan trácht anseo.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-return-multiple-matching-1.png

Freagra

Tuarascáil

Manicanta spéireang

thart ar 5 mhí ó shin

#39580

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit Skyyang,

Tá sé seo ag obair anois, Go raibh maith agat as do fhreagra tapa.

Tá sé an-úsáideach iomlán dom arís Go raibh maith agat as do chabhair.

mhéin,
Manicanta.

Freagra

Rátáil 5 as 5

Eire

thart ar 2 mhí ó shin

#41721

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Níl aon ríomhchlár soighe ar fáil do dhuine ar bith le haghaidh an fheidhmithe de abajo agus an stát tiomnaithe

S-01-08-0017-> Micrimhilseogra 1R, Dubh, Cruach Dhosmálta -Deireadh,-> 4;S-01-08-0057-> Micreaphost 2R, Dubh, Cruach Dhosmálta -Deireadh,-> 2

me devuelva los valores ar líne éagsúla.
S-01-08-0017->Micriphost 1R, Dubh, Cruach Dhosmálta -Deireadh,-> 4
S-01-08-0057->Micriphost 2R, Dubh, Cruach Dhosmálta -Deireadh,-> 2

Tá na feidhmeanna:
Feidhm SingleCellExtract(LookupLuach Mar Theaghrán, Cuardach Raon Mar Raon, Uimhir Colún Mar Shlánuimhir, Cara Mar Theaghrán)
'Updateby Extendoffice
Dim I Chomh Fada
Dim xRet Mar Teaghrán
Chun I = 1 Chun LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(I, 1) = LookupValue Ansin
Má xRet="" Ansin
xRet = LookupRange.Cells(I, Uimhir Cholún) & Char
Eile
xRet = xRet & "" & LookupRange.Cells(I, Columnumber) & Char
Deireadh Má
Deireadh Má
Ar Aghaidh
SingleCellExtract = Ar Chlé(xRet, Len(xRet) - 1)
Feidhm Deireadh

Freagra

spéireang Eire

thart ar 2 mhí ó shin

#41787

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Dia duit, Yery,
An raibh sé i gceist agat cill a roinnt ina sraitheanna iolracha bunaithe ar an gcarachtar leathstad?
Má tá, is féidir leis an gcód VBA seo a leanas cabhrú leat:

Sub SplitAll()
    Dim xRg As Range
    Dim xRg1 As Range
    Dim xCell As Range
    Dim I As Long
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRet As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
        If xRg.Columns.Count > 1 Then
            MsgBox "You can't select multiple columns", , "Kutools for Excel"
            Exit Sub
            End If
            Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
            Set xRg1 = xRg1.Range("A1")
            If xRg1 Is Nothing Then Exit Sub
                xUpdate = Application.ScreenUpdating
                Application.ScreenUpdating = False
                For Each xCell In xRg
                    xRet = Split(xCell.Value, ";")
                    xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet)
                    I = I + UBound(xRet, 1) + 1
                Next
                Application.ScreenUpdating = xUpdate
            End Sub

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!

Freagra

Tuarascáil

Níl aon tráchtanna curtha suas anseo go fóill

Fág do chuid tuairimí

Ag postáil mar Aoi

Ainm (Riachtanach)

Ríomhphost (riachtanach)

Ráta an post seo:

athshocrú

0 Carachtair

Aontaím leis an téarmaí agus riocht