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

Sut i ddychwelyd gwerthoedd edrych lluosog mewn un gell sydd wedi'i gwahanu gan goma?

Yn Excel, gallwn gymhwyso swyddogaeth VLOOKUP i ddychwelyd y gwerth cyfatebol cyntaf o gelloedd bwrdd, ond, weithiau, mae angen i ni dynnu'r holl werthoedd paru ac yna eu gwahanu gan amffinydd penodol, fel coma, dash, ac ati ... i mewn i un cell fel y dangosir y screenshot canlynol. Sut y gallem gael a dychwelyd gwerthoedd edrych lluosog mewn un gell sydd wedi'i gwahanu gan goma yn Excel?

doc dychwelyd coma gwerthoedd lluosog wedi'u gwahanu 1

Dychwelwch werthoedd edrych lluosog mewn un gell sydd wedi'i gwahanu â choma gyda Swyddogaeth wedi'i Diffinio gan Ddefnyddiwr

Dychwelwch werthoedd edrych lluosog mewn un gell sydd wedi'i gwahanu â choma gyda Kutools ar gyfer Excel


Dychwelwch werthoedd edrych lluosog mewn un gell sydd wedi'i gwahanu â choma gyda Swyddogaeth wedi'i Diffinio gan Ddefnyddiwr

Fel rheol, nid oes unrhyw ffordd uniongyrchol inni dynnu a dychwelyd y gwerthoedd paru lluosog a'u gwahanu gan goma i mewn i un gell, yma, gallwch greu Swyddogaeth Diffiniedig Defnyddiwr i ddatrys y swydd hon, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Dychwelwch werthoedd edrych lluosog i mewn i un gell sydd wedi'i gwahanu gan goma

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. Yna cadwch y cod hwn a chau ffenestr y Modiwl, ewch yn ôl i'ch taflen waith, a nodi'r fformiwla hon: = SingleCellExtract (D2, A2: B15,2, ",") i mewn i gell wag rydych chi am ddychwelyd y canlyniad. Ac yna pwyswch Rhowch allwedd i gael y canlyniad, gweler y screenshot:

doc dychwelyd coma gwerthoedd lluosog wedi'u gwahanu 2

Nodyn: Yn y fformiwla uchod:

D2: yn nodi'r gwerthoedd celloedd yr ydych am edrych arnynt;

A2: B15: yw'r ystod ddata rydych chi am nôl y data;

2: y rhif 2 yw'r rhif colofn y dylid dychwelyd y gwerth cyfatebol;

,: y coma yw'r gwahanydd rydych chi am wahanu'r gwerthoedd lluosog.

Gallwch eu newid i'ch angen.


Dychwelwch werthoedd edrych lluosog mewn un gell sydd wedi'i gwahanu â choma gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel, ni fydd y dasg hon yn broblem mwyach. Mae'r Rhesi Cyfuno Uwch gall cyfleustodau eich helpu i gyfuno'r holl werthoedd cymharol yn seiliedig ar golofn.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Dewiswch yr ystod ddata rydych chi am gyfuno'r holl werthoedd paru yn seiliedig ar golofn.

2. Cliciwch Kutools > Uno a Hollti > Rhesi Cyfuno Uwch, gweler y screenshot:

3. Yn y Cyfuno Rhesi Yn Seiliedig ar Golofn blwch deialog, cliciwch enw'r golofn rydych chi am ei chyfuno yn seiliedig, ac yna cliciwch Allwedd Cynradd botwm, gweler y screenshot:

doc dychwelyd coma gwerthoedd lluosog wedi'u gwahanu 4

4. Yna cliciwch enw colofn arall rydych chi am gyfuno eu gwerthoedd cyfatebol, a chlicio Cyfunwch i ddewis un gwahanydd i wahanu'r gwerthoedd cyfun, gweler y screenshot:

doc dychwelyd coma gwerthoedd lluosog wedi'u gwahanu 5

5. Yna cliciwch OK botwm, mae'r holl gelloedd cyfatebol sydd â'r un gwerth wedi'u cyfuno i mewn i un gell sydd wedi'u gwahanu â'r coma, gweler sgrinluniau:

doc dychwelyd coma gwerthoedd lluosog wedi'u gwahanu 6 2 doc dychwelyd coma gwerthoedd lluosog wedi'u gwahanu 7

Cliciwch i wybod mwy o fanylion am y cyfleustodau Advanced Combine Rows hwn ...

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


Demo: Dychwelwch werthoedd edrych lluosog mewn un gell sydd wedi'i gwahanu â choma gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (14)
Wedi graddio 5 allan o 5 · Graddfeydd 2
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tra rydw i'n mynd i gludo ac arbed y modiwl, mae neges naid yn ymddangos bod gwiriwr cydnawsedd ymarferoldeb wedi'i golli'n sylweddol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y post hwn. A wyddoch sut y byddwn yn mynd ati i drin y ddau gyfanrif ar wahân y mae hyn yn eu creu. Er enghraifft, gadewch i ni ddweud bod y ffwythiant '=SingleCellExtract' bellach yn cynhyrchu (1 , 2). A oes ffordd o gael cell wrth ei hymyl sydd â (1+.5 , 2+.5)?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio ond yn arafu fy excel yn bennaf! Unrhyw awgrymiadau i helpu i gyflymu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn syml, nid yw hyn yn gweithio. Nid oeddwn yn gallu ei gael i weithio yn fy nghais fy hun, felly fe wnes i gopïo / gludo'r vba a'r fformiwla ac roedd yn dychwelyd gwall bob tro
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch, yn gyntaf llwyddais i gael hwn i weithio heb yr arafu mewn perfformiad. Rwy'n defnyddio gwerthoedd yn hytrach na thestun felly fy nghwestiwn yw fy mod am ddod â phawb sydd â llai na dweud 19 pwynt mewn rhestr yn ôl. A all y Detholiad cell sengl weithio ar gyfer hynny neu a oes rhaid iddo fod yn werth penodol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gorchymyn VB yn torri pan fydd yr ystod yn hirach na 154 rhes (hy : B154).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gwall yn ymddangos os cynyddwch faint yr arae
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fydd 2 Maen Prawf yn Cyfateb yna Dychwelyd Gwerthoedd Am-edrych Lluosog Mewn Un Cell Wedi'i Gwahanu gan Goma
A2=B2 Yna Canlyniad O Ystod yn ôl "SingleCellExtract" - Os gwelwch yn dda.......
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bore Da,

roedd y cod VBA yn gweithio'n berffaith gyda fy nhaflen waith, yn eithaf clir a syml, fodd bynnag, roeddwn i'n ceisio dod o hyd i ffordd i ddweud wrth excel i ddychwelyd y gwerthoedd unigryw yn unig. A fyddai hynny'n bosibl defnyddio'r un cod hwn?
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rwyf eisiau union god dilysu ar gyfer gwerthoedd lluosog wedi'u gwahanu gan goma a gofod ar gyfer pob gwerth.

enghraifft:
Lucy, Tom, Nicol, Akash, Afal

Ailchwaraewch os oes gennych unrhyw awgrymiadau.
Wedi graddio 4.5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Manikanta
I wahanu'r gwerthoedd lluosog gan goma a gofod, does ond angen ychwanegu bwlch y tu ôl i'r coma, newidiwch y fformiwla fel hyn: =Detholiad Senglgell(D2,A2:B15,2,",").
Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Skyyang,

Diolch am eich ailchwarae!

Ceisiais eisoes yr un ffordd ond yng ngwerth y gell olaf un coma ychwanegol (,) yn dod isod yw'r enghraifft.

Lucy, Tom, Nicol, Akash, Afal,

Ni fydd hyn yn gweithio ar gyfer ffeil Json, felly rydw i eisiau gwerthoedd wedi'u gwahanu gan goma a gofod fel isod.

Lucy, Tom, Nicol, Akash, Afal

Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Manikanta
Yn yr achos hwn, gallwch gymhwyso'r Swyddogaeth Ddiffiniedig Defnyddiwr isod:

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


Ar ôl gludo'r cod, defnyddiwch y fformiwla hon: =MultipleValues($A$2:$A$15,D2,$B$2:$B$15,", ")

Ceisiwch, gobeithio y gall hyn eich helpu!
Os oes gennych unrhyw broblem arall o hyd, rhowch sylwadau yma.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-return-multiple-matching-1.png
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Skyyang,

Mae hyn yn gweithio nawr, Diolch am eich ymateb cyflym.

Mae'n ddefnyddiol iawn llawn i mi unwaith eto Diolch am eich cymorth.

Regards,
Manikanta.
Wedi graddio 5 allan o 5
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir