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

Sut i gyd-fynd â chelloedd os yw'r un gwerth yn bodoli mewn colofn arall yn Excel?

cyfuno os yr un peth

Fel y sgrin chwith a ddangosir, suppsing angen i chi concatenate y celloedd yn yr ail golofn yn seiliedig ar yr un gwerth celloedd yn y golofn gyntaf. Sut gallwch chi ei gyflawni?

Yn yr erthygl hon, byddwn yn cyflwyno tri dull i'ch helpu chi i'w gyflawni.

Concatenate celloedd os yw'r un gwerth â fformwlâu a hidlydd

Concatenate celloedd os yw'r un gwerth â chod VBA
Celloedd cyd-fynd yn hawdd os yw'r un gwerth â Kutools ar gyfer Excel


Concatenate celloedd os yw'r un gwerth â fformwlâu a hidlydd

Gyda'r fformwlâu isod, gallwch gyd-fynd â chynnwys celloedd cyfatebol os yw colofn arall yn cynnwys yr un gwerth yn Excel.

1. Dewiswch gell wag ar wahân i'r ail golofn (yma rydyn ni'n dewis cell C2), nodwch y fformiwla = OS (A2 <> A1, B2, C1 & "," & B2) i mewn i'r bar fformiwla, ac yna pwyswch y Rhowch allweddol.

2. Yna dewiswch gell C2, a llusgwch y Llenwi Trin i lawr i gelloedd y mae angen i chi eu cyd-daro.

3. Rhowch fformiwla = OS (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") i mewn i gell D2, a llusgo Llenwch Trin i lawr i'r celloedd gorffwys.

4. Dewiswch gell D1, a chlicio Dyddiad > Hidlo. Gweler y screenshot:

5. Cliciwch y gwymplen yng nghell D1, dad-diciwch y (Bylchau) blwch, ac yna cliciwch ar y OK botwm.

Gallwch weld bod y celloedd yn cyd-daro os yw gwerthoedd y golofn gyntaf yr un peth.

Nodyn: Er mwyn defnyddio'r fformwlâu uchod yn llwyddiannus, rhaid i'r un gwerthoedd yng ngholofn A fod yn barhaus.


Cyfuno celloedd mewn colofn yn hawdd os yw'r un gwerth yn bodoli mewn colofn arall:

gyda Kutools ar gyfer Excel's Rhesi Cyfuno Uwch cyfleustodau, gallwch chi gyfuno celloedd mewn colofn yn hawdd os yw'r un gwerth yn bodoli mewn colofnau arall yn Excel â'r demo isod a ddangosir. Dadlwythwch Kutools ar gyfer Excel nawr! (llwybr 30 diwrnod am ddim)

contatinate o'r un


Concatenate celloedd os yw'r un gwerth â chod VBA

Ar wahân i fformiwla, yn yr adran hon, byddwn yn dangos i chi sut i ddefnyddio cod VBA i gyd-fynd â chelloedd os yw'r un gwerth.

1. Gwasgwch Alt + F11 allweddi i agor y Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr.

2. Yn y Cymwysiadau Sylfaenol Gweledol Microsoft ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod isod i'r Modiwlau ffenestr.

Cod VBA: cyd-fynd â chelloedd os yw'r un gwerthoedd

Sub ConcatenateCellsIfSameValues()
	Dim xCol As New Collection
	Dim xSrc As Variant
	Dim xRes() As Variant
	Dim I As Long
	Dim J As Long
	Dim xRg As Range
	xSrc    = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
	Set xRg = Range("D1")
	On Error Resume Next
	For I = 2 To UBound(xSrc)
		xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
	Next I
	On Error GoTo 0
	ReDim xRes(1 To xCol.Count + 1, 1 To 2)
	xRes(1, 1) = "No"
	xRes(1, 2) = "Combined Color"
	For I = 1 To xCol.Count
		xRes(I + 1, 1) = xCol(I)
		For J = 2 To UBound(xSrc)
			If xSrc(J, 1) = xRes(I + 1, 1) Then
				xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
			End If
		Next J
		xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
	Next I
	Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
	xRg.NumberFormat = "@"
	xRg = xRes
	xRg.EntireColumn.AutoFit
End Sub

Nodiadau:

1. D1 yn unol Gosod xRg = Ystod ("D1") yn golygu y bydd y canlyniad yn cael ei roi yng nghell D1.

2. Na a Lliw Cyfun yn unol xRes (1, 1) = "Na" a xRes (1, 2) = "Lliw Cyfun" yw penawdau colofnau cydgysylltiedig. Gallwch eu newid yn ôl yr angen.

3. Gwasgwch y F5 allwedd i redeg y cod, yna byddwch yn cael y canlyniadau cydgysylltiedig mewn ystod benodol.


Yn hawdd cyd-fynd â chelloedd os yw'r un gwerth â Kutools ar gyfer Excel (sawl clic)

Os yw'r ddau ddull uchod yn gymhleth i chi, yma byddwn yn dangos y Rhesi Cyfuno Uwch cyfleustodau Kutools ar gyfer Excel Gallwch chi gyd-fynd â chelloedd yn hawdd trwy goma, hanner colon ac ati os yw'r un gwerthoedd yn bodoli mewn colofn arall.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch yr ystod gyda chelloedd y mae angen i chi eu cyd-daro, ac yna cliciwch Kutools > Uno a Hollti > Rhesi Cyfuno Uwch. Gweler y screenshot:

2. Yn y Rhesi Cyfuno Uwch blwch deialog, mae angen i chi wneud fel a ganlyn.

  • 2.1) Dewiswch y golofn gyda'r un gwerth rydych chi am gyd-fynd â chelloedd yn seiliedig arni, ac yna cliciwch ar y Allwedd Cynradd botwm.
  • 2.2) Dewiswch y golofn rydych chi am gyd-fynd â'r celloedd, cliciwch Cyfunwch botwm, ac yna nodwch wahanydd o'r ddewislen cyd-destun (dyma fi'n nodi atalnod).
  • 2.3) Cliciwch y OK botwm.

Nawr mae'r celloedd yn cyd-daro yn ôl y golofn allwedd gynradd.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Celloedd cyd-fynd yn hawdd os yw'r un gwerth â Kutools ar gyfer Excel


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 (17)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Methu ymddangos fel pe bai'n cydgadwynu â mwy na 2 gell gan ddefnyddio fformiwlâu a ffilterau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i gyfuno colums gyda'r un enwau ee mae Colofn un yn darllen Kenya drwyddi draw a cholofn 2 yn darllen gorllewinol, Nyanza (yn ymddangos fwy na deg gwaith) a cholofn 3 tri enw ardaloedd. Dwi am gael sut mang districts sydd gennym ni ym mhob talaith ond cadw'r colofnau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Sieffre,

Rhowch gynnig ar y cyfleustodau Cyfuno Rhesi Uwch y soniasom amdanynt yn y dull dau uchod. Os ydych chi am gadw'r colofnau, gwnewch gopi o'r ystod wreiddiol a gwnewch bopeth yn yr ystod a gopïwyd.

Nodwch y golofn dalaith fel Prif Allwedd, gosodwch y Golofn 1 fel Cadw 1af, ac yna gosodwch y golofn ardal fel Cyfrifwch > Cyfrif.

Wedi hynny, fe gewch chi faint o ardal sydd gennych chi ym mhob talaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r nodwedd concatenate yn gweithio. Yn cyfuno'r holl resi yn un gell er gwaethaf allweddi gwahanol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Marissa,
Mae'n ddrwg gennyf, nid wyf yn siŵr a gefais eich cwestiwn. Mae tri dull yn yr erthygl, pa nodwedd concatenate ydych chi'n ei olygu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf mor ddiolchgar ichi am y fformiwlâu hyn. Gwaith ffantastig!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'n union beth oedd ei angen arnaf...diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gan ddefnyddio'r macro VBA a chael canlyniadau gwych, rwyf wedi ceisio ei addasu ychydig ar gyfer fy anghenion ond ni allaf ei gael i weithio felly rwy'n gobeithio y gallwch chi helpu.

Pa ran ydw i'n ei newid i'w gwneud yn concat colofn benodol, nid yr un yn union i'r dde o'r xSrc = Ystod?

Diolch am eich gwaith gwych!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Neu fel opsiwn gwell, os oedd gennych 3 colofn yn lle 2 a dod o hyd i ddyblygiadau yng ngholofn A (fel eich enghraifft chi) a allwch chi concat colofn B i mewn i gell a cholofn C i mewn i gell ar wahân? Felly pe bai gennych chi golofnau Rhif, Lliw, Oedran, a allech chi concat lliw ac oedran i mewn i wahanol golofnau ar ôl dod o hyd i ddyblygiadau yn Rhif? Gobeithio bod hynny'n gwneud synnwyr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio'r VBA hwn ar gyfer llawer o fy nhaenlenni ac mae'n wych. Ond mae'r taenlenni wedi dod yn rhesi 50k+ mawr iawn ac nid yw'n ymddangos eu bod yn gweithio mwyach. Os byddaf yn ei ddefnyddio ar 1000 o resi, mae'n gweithio'n iawn ond mae setiau mawr o ddata yn methu ag ymdopi â nhw. Dim gwallau dim ond dim canlyniadau. Byddai unrhyw help yn cael ei werthfawrogi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi James,
Profais y cod fel y soniasoch, ond mae'n dal i weithio'n dda yn fy achos i hyd yn oed gosodais y rhesi i 1000+.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Mae'n edrych fel bod 2 o'ch fformiwlâu yn anghywir :

=IF(A2<>A3,CONCATENATE(A2,",""",C2,""""),""). Mae angen i chi newid "A2" i "D1". Gan y byddwch chi eisiau ychwanegu'r llinyn i'r gell flaenorol.

Mae'r un peth yn wir am y fformiwla hon:

=IF(A2<>A1,B2,C1 & "," & B2): Newid C1 i D1.


Cofion cynnes


Harry
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, yn gyntaf diolch am greu'r adnodd hwn. Rwyf wedi bod yn ceisio darganfod hyn ers cwpl o oriau ac rwy'n sownd. Rwy'n defnyddio'ch 'celloedd concatenate os yw'r un gwerth' ond mae fy sgript yn edrych ar golofn "D" yn lle "A. Ni allaf ddarganfod sut i'w gael i ddefnyddio colofn wahanol ar gyfer y data ar wahân i'r un nesaf iddo. Yn fy achosion rwyf am iddo edrych ar golofn "D" i weld a yw'r gwerth yr un peth ac os felly, bydd yn cydio yn y data o golofn "H" ac yn rhoi'r data hwnnw o golofn "H" i mewn i gell yng ngholofn "J". Sut ydw i'n newid hwn i ddefnyddio colofn "H" ar gyfer y data? Diolch


Is-Gelloedd Cydgadadwy OsYr un Gwerthoedd()
Dim xCol Fel Casgliad Newydd
Dim xSrc Fel Amrywiad
Dim xRes() Fel Amrywiad
Dim I Cyn Hir
Dim J Cyhyd
Dim xRg Fel Ystod
xSrc = Ystod ("D1", Celloedd(Rhesi.Cyfrif, "D").Diwedd(xlUp)). Newid maint(, 2)
Gosod xRg = Ystod ("J1")
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer I = 2 I UBound(xSrc)
xCol.Ychwanegu xSrc(I, 1), MathName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Nesaf i
Ar Gwall Ewch i 0
ReDim xRes(1 I xCol.Count + 1, 1 I 2)
xRes(1, 1) = "Na"
xRes(1, 2) = "Cynhyrchion"
Am I = 1 I xCol.Count
xRes(I + 1, 1) = xCol(I)
Ar gyfer J = 2 I UBound(xSrc)
Os yw xSrc(J, 1) = xRes(I + 1, 1) Yna
xRes(I + 1, 2) = xRes(I + 1, 2) & vbCrLf & xSrc(J, 2)
Gorffennwch Os
J nesaf
xRes(I + 1, 2) = Canolbarth(xRes(I + 1, 2), 2)
Nesaf i
Gosod xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
"Ni allaf ddarganfod sut i'w gael i ddefnyddio colofn wahanol ar gyfer y data ar wahân i'r un yn union nesaf iddo. Yn fy achosion rwyf am iddo edrych ar golofn 'D' i weld a yw'r gwerth yr un peth ac os felly, bydd yn cydio yn y data o golofn 'H' ac yn rhoi'r data hwnnw o golofn 'H' i mewn i gell yng ngholofn 'J'."

Wnaethoch chi erioed ddarganfod hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn i eisiau diolch i chi. Nid dyna'n union roeddwn i eisiau ond fe wnaeth dyn fy helpu i ddarganfod beth i'w wneud.

Mae gen i dabl lle roedd enw'r person yng ngholofn A, dyddiadau yng ngholofn B ac enwau'r offer maen nhw'n eu defnyddio ym mhenawdau colofnau C:G . Ym mhob colofn mae "Y" os gwnaethant ddefnyddio'r offeryn hwnnw ar y dyddiad hwnnw ac yn wag os na wnaethant. (FYI: gellir rhestru'r un person fwy nag unwaith ac efallai ei fod wedi defnyddio'r un teclyn fwy nag unwaith) Ar dudalen gryno ar wahân roeddwn i eisiau rhestru'r holl offer a ddefnyddiwyd gan bob person o fewn cyfnod dyddiad, gan restru pob offeryn a ddefnyddiwyd ganddynt yn unig unwaith, yn yr un gell. Ar y dudalen hon, roedd enw'r person yng ngholofn A, Roedd y mathau o offer a ddefnyddiwyd yng ngholofn B ac roedd y colofnau cynorthwyydd yng ngholofn G:K. Dyma beth ges i:
Y golofn helpwr gyntaf (G2):
=IF(COUNTIFS(Table7[Person's Name],A2,Table7[Screw Driver],"Y",Table7[Date],">="&1/1/20,Table7[Date],"<="&3/31/20),"Screw Driver","")
Yn y golofn helpwr olaf (K2):
=IF(COUNTIFS(Table7[Person's Name],A2,Table7[Hammer],"Y",Table7[Date],">="&1/1/20,Table7[Date],"<="&3/31/20),IF(J2="","Hammer",J2&"/"&"Hammer"),J2)

Yn B2, nodais =K2

Diolch eto a gobeithio bod hyn yn helpu rhywun. EZPD
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sut byddai'r cod VBA yn cael ei addasu os wyf am gyfuno celloedd yng ngholofn M yn seiliedig ar y dyblygiadau yng ngholofn A?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Kristin,I gyfuno celloedd yng ngholofn M yn seiliedig ar y copïau dyblyg yng ngholofn A, rhowch gynnig ar y VBA isod.Yn y cod,  O1 yw'r gell gyntaf i allbynnu'r canlyniadau; M yw'r golofn y byddwch yn cyfuno yn seiliedig ar y copïau dyblyg yng ngholofn A; A1 ac A cynrychioli'r gell gyntaf a'r golofn lle mae'r dyblygiadau wedi'u lleoli; Na ac Cyfuno lliw yw pennyn y colofnau ar ôl cydgatenu. Gallwch chi newid y newidynnau hyn yn ôl yr angen. Is-Gelloedd Cydgadadwy OsYr un Gwerthoedd()
'Diweddarwyd gan Extendoffice 20211105
Dim xCol Fel Casgliad Newydd
Dim xSrc Fel Amrywiad
Dim xSrcValue Fel Amrywiad
Dim xRes() Fel Amrywiad
Dim I Cyn Hir
Dim J Cyhyd
Dim xRg Fel Ystod
Dim xResultAddress Fel Llinynnol
Dim xMergeAddress Fel Llinynnol
Dim xUp Fel Cyfanrif

xResultAddress = "O1" 'Y gell i allbynnu'r canlyniadau
xMergeAddress = "M" 'Y golofn y byddwch yn ei chyfuno yn seiliedig ar y copïau dyblyg yng ngholofn A

xSrc = Ystod ("A1", Celloedd(Rhesi.Cyfrif,"A"). Diwedd (xlUp)). Newid maint (, 1)
xUp = Amrediad ("A1", Celloedd(Rhesi.Cyfrif,"A").Diwedd(xlUp)).Rhesau.Cyfrif
xSrcValue = Amrediad(xMergeAddress & "1:" & xMergeAddress & xUp)

Gosod xRg = Ystod(xResultAddress)
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer I = 2 I UBound(xSrc)
xCol.Ychwanegu xSrc(I, 1), MathName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Nesaf i

Ar Gwall Ewch i 0
ReDim xRes(1 I xCol.Count + 1, 1 I 2)
xRes(1, 1) = "Na"
xRes(1, 2) = "Lliw Cyfun"
Am I = 1 I xCol.Count
xRes(I + 1, 1) = xCol(I)
Ar gyfer J = 2 I UBound(xSrc)
Os yw xSrc(J, 1) = xRes(I + 1, 1) Yna
xRes(I + 1, 2) = xRes(I + 1, 2) &", " & xSrcValue(J, 1)
Gorffennwch Os
J nesaf
xRes(I + 1, 2) = Canolbarth(xRes(I + 1, 2), 2)
Nesaf i
Gosod xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir