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

Sut i gyd-fynd yn hawdd â thestun yn seiliedig ar feini prawf yn Excel?

Gan dybio bod gen i golofn o rifau adnabod sy'n cynnwys rhai dyblygu a cholofn o enwau, ac yn awr, rydw i am gyd-fynd â'r enwau yn seiliedig ar y rhifau adnabod unigryw fel y dangosir y llun chwith, er mwyn cyfuno'r testun yn gyflym yn seiliedig ar feini prawf, sut allen ni wneud yn Excel?

doc cyfuno testun yn seiliedig ar feini prawf 1

Testun concatenate yn seiliedig ar feini prawf gyda Swyddogaeth Diffiniedig Defnyddiwr

Testun concatenate yn seiliedig ar feini prawf gyda Kutools ar gyfer Excel


I gyfuno testun â'r rhifau adnabod unigryw, gallwch echdynnu'r gwerthoedd unigryw yn gyntaf ac yna creu Swyddogaeth Diffiniedig Defnyddiwr i gyfuno'r enwau yn seiliedig ar yr ID unigryw.

1. Cymerwch y data canlynol fel enghraifft, mae angen i chi echdynnu'r rhifau adnabod unigryw yn gyntaf, defnyddiwch y fformiwla arae hon: =IFERROR(INDEX($A$2:$A$15, MATCH(0,COUNTIF($D$1:D1, $A$2:$A$15), 0)),""), Rhowch y fformiwla hon i mewn i gell wag, D2 er enghraifft, yna pwyswch Ctrl + Shift + Enter allweddi gyda'i gilydd, gweler y screenshot:

doc cyfuno testun yn seiliedig ar feini prawf 2

Tip: Yn y fformiwla uchod, A2: A15 yw'r ystod ddata rhestr rydych chi am dynnu gwerthoedd unigryw ohoni, D1 yw cell gyntaf y golofn rydych chi am roi'r canlyniad echdynnu allan.

2. Ac yna llusgwch y ddolen llenwi i lawr i echdynnu'r holl werthoedd unigryw nes bod bylchau wedi'u harddangos, gweler y screenshot:

doc cyfuno testun yn seiliedig ar feini prawf 3

3. Yn y cam hwn, dylech greu a Swyddogaeth Diffiniedig Defnyddiwr i gyfuno'r enwau yn seiliedig ar y rhifau adnabod unigryw, daliwch y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

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

Cod VBA: testun cyd-fynd yn seiliedig ar feini prawf

Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
'Updateby Extendoffice
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
    ConcatenateIf = CVErr(xlErrRef)
    Exit Function
End If
For i = 1 To CriteriaRange.Count
    If CriteriaRange.Cells(i).Value = Condition Then
        xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
    End If
Next i
If xResult <> "" Then
    xResult = VBA.Mid(xResult, VBA.Len(Separator) + 1)
End If
ConcatenateIf = xResult
Exit Function
End Function

5. Yna arbed a chau'r cod hwn, ewch yn ôl i'ch taflen waith, a nodi'r fformiwla hon yng nghell E2, = CONCATENATEIF ($ A $ 2: $ A $ 15, D2, $ B $ 2: $ B $ 15, ",") , gweler y screenshot:

doc cyfuno testun yn seiliedig ar feini prawf 4

6. Yna llusgwch y handlen llenwi i lawr i'r celloedd rydych chi am gymhwyso'r fformiwla hon, ac mae'r holl enwau cyfatebol wedi'u cyfuno yn seiliedig ar y rhifau adnabod, gweler y screenshot:

doc cyfuno testun yn seiliedig ar feini prawf 5

Awgrym:

1. Yn y fformiwla uchod, A2: A15 yw'r data gwreiddiol yr ydych am ei gyfuno yn seiliedig ar, D2 yw'r gwerth unigryw rydych chi wedi'i dynnu, a B2: B15 yw'r golofn enw rydych chi am ei chyfuno gyda'ch gilydd.

2. Fel y gallwch weld, fe wnes i gyfuno'r gwerthoedd sy'n cael eu gwahanu gan atalnod, gallwch ddefnyddio unrhyw nodau eraill trwy newid coma “,” y fformiwla yn ôl yr angen.


Os oes gennych Kutools ar gyfer Excel, Gyda'i Rhesi Cyfuno Uwch cyfleustodau, gallwch chi gyd-fynd yn gyflym ac yn gyfleus â sylfaen y testun ar feini prawf.

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 y camau canlynol:

1. Dewiswch yr ystod ddata rydych chi am ei chyfuno yn seiliedig ar un 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 y golofn ID ac yna cliciwch Allwedd Cynradd i wneud y golofn hon fel y golofn allweddol y mae eich data cyfun yn seiliedig arni, gweler y screenshot:

doc cyfuno testun yn seiliedig ar feini prawf 7

4. Ac yna cliciwch Enw colofn yr ydych am gyfuno'r gwerthoedd, yna cliciwch Cyfunwch opsiwn, a dewis un gwahanydd ar gyfer y data cyfun, gweler y screenshot:

doc cyfuno testun yn seiliedig ar feini prawf 8

5. Ar ôl gorffen y gosodiadau hyn, cliciwch OK i adael y dialog, ac mae'r data yng ngholofn B wedi'i gyfuno gyda'i gilydd yn seiliedig ar golofn allweddol A. Gweler y screenshot:

doc cyfuno testun yn seiliedig ar feini prawf 9

Gyda'r nodwedd hon, bydd y broblem ganlynol yn cael ei datrys cyn gynted â phosibl:

Sut i gyfuno rhesi lluosog yn un a dyblygu swm yn Excel?

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


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 (38)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn yn ddatrysiad ardderchog (cod VBA) ac aeth i'r afael â'm gofynion mewn munudau. Cyfeiriaf eich gwefan at eraill a byddaf yn ymweld am bopeth sydd ei angen arnaf wrth symud ymlaen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod hwn. Roedd yn UNION yr hyn yr oeddwn ei angen. Fe wnaethoch chi arbed llawer o ymdrech i mi, diolch yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am bostio dyma'n union beth rydw i'n edrych amdano. Mae'n ymddangos nad wyf yn arbed y cod vba yn gywir. Rwy'n cael neges gwall am yr enw amwys a ddarganfuwyd. Unrhyw awgrymiadau neu gam wrth gam ar gam VBA y prosiect hwn? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A fydd yr offeryn hwn yn gallu ymdrin â chyfuniadau achos sensitif megis jABC 123 abc 345 ABc 678 ABC 912
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Arbedodd y cod VBA hwn y diwrnod i mi. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n edrych am ffordd i ddefnyddio amrywiad o'r cod hwn i greu rhestr amrywiad yn seiliedig ar amrywiad meistr. Gan ddefnyddio'ch data enghreifftiol, byddai angen i mi gyfuno colofnau A a B yn ddynodwyr unigryw ac yna cydgadwynu'r dynodwyr hynny i bob rhes yn seiliedig ar y gwerth yng ngholofn A, heb gynnwys y gwerth o'r cyfun ar gyfer y rhes honno, a'r gweddill mewn trefn alffa order: Master id name id variant list CN20150012 Lucy CN20150012-Lucy CN20150012-Andy CN20150012-Monica CN20150012-Phiby US20150011 Tommas US20150011-Tommas US20150011-Rose CN20150012 Monica CN20150012-Monica CN20150012-Andy CN20150012-Lucy CN20150012-Phiby CN20150012 Phiby CN20150012-Phiby CN20150012 -Andy CN20150012-Lucy CN20150012-Monica US20150011 Rose US20150011-Rose US20150011-Tommas UK20150014 Peter UK20150014-Peter UK20150014-Anith UK20150014-Kristi UK20150014-Libin JP20150010 Ramon JP20150010-Ramon JP20150010-Brenda JP20150010-James UK20150014 Libin UK20150014-Libin UK20150014-Anith UK20150014 -Kristi UK20150014-Peter UK20150014 Anith UK20150014-Anith UK20150014-Kristi UK20150014-Libin UK20150014-Peter JP20150010 James JP20150010 20150010-James JP20150010-Brenda JP20150010-James JP20150012-Matus CN20150012 Andy CN20150012-Andy CN20150012-Lucy CN20150012-Monica CN20150014-Phiby UK20150014 Matus UK20150010-Matus JP20150010-Brenda JP20150014-James UK20150014 Kristi UK20150014-Kristi UK20150014-Anith UK20150014-Libin UK20150010- Peter JP20150010 Brenda JP20150010-Brenda JP20150010-James JP1000-Ramon Mae gen i ddalen gyda dros 4 o linellau, mae pob eitem yn dod gyda hyd at XNUMX amrywiad. Mae ceisio gwneud hyn â llaw yn amhosibl ond ni allaf ddod o hyd i ateb sy'n gweddu i'm hanghenion.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymryd mwy o amser i ddiweddaru'r un fformiwla concatenateif(). Mae gen i 5000 o resi. ac mae'n fwy na 2 awr bellach yn dal i ddiweddaru :( Unrhyw benderfyniad i wneud iddo weithio'n gyflym?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi'i esbonio'n fanwl ac yn hawdd ei ddeall, wedi helpu'n fawr pan oeddwn yn sownd yn yr un sefyllfa yn union.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn ac wedi'i esbonio'n dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych, diolch! Defnyddiais yr ateb VBA a gweithiodd yn wych.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych!!! Diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio ar gyfer yr ystod ddata fawr. Canfûm mai dim ond hyd at A2:A362 yw ei amrediad gweithio. Byddem yn ddiolchgar pe baech yn rhannu'r ateb ar gyfer yr ystod ddata fawr fel A2:A200000 .... Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n wych dim ond yn araf. Rwy'n ei wneud gyda llinellau testun 27k yn excel dim ond ei osod i ffwrdd ewch am fragu a'i adael i redeg
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio ar gyfer yr ystod ddata fawr. Canfûm fod ei amrediad data gweithredol hyd at A2:A362. Byddem yn ddiolchgar pe baech yn rhannu'r ateb i gwmpasu'r ystod ddata ehangach fel A2:A200000 ..... Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! concactenateif yw'r union beth roeddwn i'n edrych amdano. Ond yn anffodus ni all ei gael i weithio Cael gwall crynhoi bob amser: gwall cystrawen. Unrhyw syniadau? Yn y gorffennol, gyda rhai modiwlau VBA wedi'u mewnforio, rwyf wedi sylwi bod yn rhaid i mi ddisodli'r "," gan ";" fel yn fy PC, efallai oherwydd fy gosodiadau rhanbarthol, dyna'r unig ffordd y mae'n gweithio. Defnyddiwch y sumifs adeiledig yn ofalus ac ati. Ond methu deall ble rydw i'n mynd o'i le ar yr un yma. Un posibilrwydd arall sy'n dod i'r meddwl yw'r ffaith bod "concat" yn lle "concatenate" yn swyddfa 365. Allwch chi helpu os gwelwch yn dda? Diolch ymlaen llaw, Yash
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod yn defnyddio rhai mannau di-dor ar gyfer mewnoliad, mae'r rhain yn teithio i Excel2016. Anodd sylwi ar wall anweledig..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais broblem ar ôl gludo'r cod hwn i mewn i Excel 2016 - mae'n cynnwys bylchau afreolaidd (efallai mannau nad ydynt yn torri?) sy'n taflu gwallau cystrawen nad ydynt yn amlwg ni waeth pa mor agos rydych chi'n edrych oherwydd eu bod yn anweledig! Y mannau mewnoliad yw'r broblem. Gludwch y cod i mewn i Word a throi cymeriadau cudd ymlaen i'w gweld.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw!! Athrylith! Wedi gweithio fel swyn! MAE yna fannau dod sy'n dangos fel cymeriad gwahanol. Diolch yn fawr Dave! Tybed sut y daethoch chi i fyny â'r syniad! Hefyd, tybed sut mae'n gweithio i rai peeps eraill ..Beth bynnag, diolch eto!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i wneud hyn ar Mac ????
Dyna'n union sydd ei angen arnaf - rhowch wybod i mi (neu os byddai unrhyw feddalwedd mac yn ei wneud yr ydych chi'n gwybod amdano). Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i gymhwyso'r swyddogaeth CONCATENATEIF hon mewn tudalen ar wahân? Mae'n gweithio pan fyddaf yn ei roi yn yr un ddalen â data mewnbwn, ond mae angen y ddau dabl arnaf mewn gwahanol daflenni ac nid yw'n gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ie, yr hyn yr ydych am ei wneud yw ychwanegu'r swyddogaeth i fodiwl. Ewch i mewn i'r golygydd VBA, de-gliciwch ar "VBAProject" yn y Project Explorer, llygoden dros yr eitem ddewislen "Mewnosod", ac yn yr is-ddewislen honno dewiswch "Modiwl". Bydd unrhyw swyddogaethau a roddwch yno yn rhai y gellir eu defnyddio ar unrhyw ddalen yn eich llyfr gwaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bois, ges i wall #NAME? pan fyddaf yn cymhwyso fformiwlâu CONCATENATEIF mewn ffeil excel ar ôl gosod cod VBA ar gyfer hyn, a allai unrhyw un fy helpu i'w ddatrys , diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mor Hawdd, diolch :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl gosod toriad llinell yn lle'r holltwr coma, hy torgoch(10)? Diolch yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, David,

I gyfuno'r celloedd â thoriad llinell, efallai y bydd y Swyddogaeth Ddiffiniedig Defnyddiwr ganlynol o gymorth i chi.

Swyddogaeth ConcatenateIf_LineBreak(Meini Prawf Amrediad Fel Ystod, Cyflwr Fel Amrediad, Amrediad Concatenate Fel Ystod, Gwahanydd Dewisol Fel Llinyn = ",") Fel Amrywiad
Dim xCanlyniad Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
If CriteriaRange.Count <> ConcatenateRange.Count Yna
ConcatenateIf = CVErr(xlErrRef)
Swyddogaeth Gadael
Gorffennwch Os
Ar gyfer I = 1 I CriteriaRange.Count
If CriteriaRange.Cells(I).Value = Cyflwr Yna
xResult = xResult & vbCrLf & ConcatenateRange.Cells(I).Value
Gorffennwch Os
Nesaf i
If xResult <> "" Yna
xResult = VBA.Mid(xResult, VBA.Len(Gwahanydd) + 1)
Gorffennwch Os
ConcatenateIf_LineBreak = xCanlyniad
Swyddogaeth Gadael
Swyddogaeth End

Ar ôl gludo'r cod hwn, yna cymhwyswch y fformiwla hon: =ConcatenateIf_LineBreak(A2:A13,F2,B2:B13,",").

Ar ôl cael y canlyniadau gyda'r fformiwla hon, dylech glicio ar y Wrap Text i gael y canlyniadau cywir sydd eu hangen arnoch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn! Roedd hyn mor syml ac wedi helpu llawer!!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir