Skip to main content

Conas sraitheanna iolracha a chomhcheangal i gceann amháin bunaithe ar dhúbailtí in Excel?

B’fhéidir, tá na sonraí scáileáin seo a leanas agat, i gcolún A Ainm an táirge, tá roinnt míreanna dúblacha ann, agus anois ní mór duit na hiontrálacha dúblacha i gcolún A a bhaint ach na luachanna comhfhreagracha i gcolún B a chur le chéile, féach scáileáin scáileáin:

doc-Advanced-comb1 -2 doc-Advanced-comb2

An bhfuil roinnt bealaí éifeachtacha agat chun an tasc seo a réiteach?

Comhcheangail sraitheanna iolracha dúblacha i gceann amháin le cód VBA

Comhcheangail sraitheanna iolracha dúblacha i gceann Kutools le haghaidh Excel

Comhcheangail sraitheanna iolracha dúblacha agus suim / meán na luachanna le Kutools le haghaidh Excel


mboilgeog cheart gorm saigheadComhcheangail sraitheanna iolracha dúblacha i gceann amháin le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat sraitheanna dúblacha a chur le chéile bunaithe ar luach cholún A, agus ní chuirtear an cód seo a leanas i bhfeidhm ach ar dhá cholún. Mar sin, má tá dhá shonraí colún agat, déanfaidh an cód seo fabhar duit.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: cuir sraitheanna iolracha le chéile i gceann amháin

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. Ansin brúigh F5 eochair, agus tagann bosca pras amach le cur i gcuimhne duit raon a theastaíonn uait a chur le chéile a roghnú. Féach an pictiúr:

doc-Advanced-comb3

4. Agus ansin cliceáil OK, tá na luachanna i gcolún B comhcheangailte i dtaifead amháin agus spásanna scartha óna chéile.

doc-Advanced-comb4

Nótaí:

1. Féadann an cód seo na sonraí bunaidh a scriosadh, nuair a úsáideann tú iad, b’fhearr duit na sonraí a chúltaca ar dtús.

2. Ní chuirtear an cód seo i bhfeidhm ach ar dhá cholún, má tá níos mó ná dhá cholún agat, ní chomhcheanglóidh an cód seo ach an chéad dá cholún agus bainfidh sé sonraí colúin eile. Nuair a úsáideann tú an cód seo, caithfidh tú a bheith aireach.


mboilgeog cheart gorm saigheadComhcheangail sraitheanna iolracha dúblacha i gceann Kutools le haghaidh Excel

Anois go bhfuil roinnt teorainneacha agus rioscaí ag an gcód thuas, an bhfuil bealach áisiúil agus sábháilte ann chun an post seo a chríochnú? Le Kutools le haghaidh Excel'S Sraitheanna Comhcheangail Casta áirgiúlacht, is féidir leat sraitheanna iolracha dúblacha a bhaint go tapa sna colúin ar a bhfuil tú bunaithe agus roinnt ríomhanna do thaifid eile a chumasc nó a dhéanamh i gcealla iomchuí.

Kutools le haghaidh Excel Cuimsíonn sé níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois.

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

1. Roghnaigh na sonraí raon a theastaíonn uait dúbailtí a chur le chéile.

doc-Advanced-comb5

2. Ansin cliceáil Kutools > Tiontaire Ábhar > Sraitheanna Comhcheangail Casta. Féach an pictiúr:

doc-Advanced-comb6

3. Sa an Sraitheanna Comhcheangail Casta bosca dialóige, roghnaigh ainm an cholúin mar na príomhcholúin ar mhaith leat luachanna a chomhcheangal bunaithe orthu, agus ansin cliceáil Príomhcholúin. Féach an pictiúr:

doc-Advanced-comb7

4. Ansin cliceáil ar an gcolún a theastaíonn uait a luachanna a chomhcheangal in aon taifead amháin, agus ansin cliceáil Oibríochtaí a chomhcheangal agus roghnaigh Ná comhcheangail ach le deighilteoir, agus deighilteoir amháin a roghnú a theastaíonn uait na luachanna comhcheangailte a scaradh ón liosta ceart. Féach an pictiúr:

doc-Advanced-comb8

5. Tar éis na socruithe a chríochnú, cliceáil OK, agus déanfar do chuid sonraí a chumasc bunaithe ar na príomhcholúin agus scartha óna chéile ag deighilteoirí.

doc-Advanced-comb9

Nóta: Mura gá duit na hoibríochtaí a shocrú do na colúin scíthe, coinnigh an stát réamhshocraithe.


mboilgeog cheart gorm saigheadComhcheangail sraitheanna iolracha dúblacha agus suim / meán na luachanna le Kutools le haghaidh Excel

Leis an ilfheidhmeach seo Sraitheanna Comhcheangail Casta fóntais, is féidir leat sraitheanna dúblacha a chur le chéile agus roinnt ríomhanna a dhéanamh do na luachanna freisin.

1. Roghnaigh na sonraí raon a theastaíonn uait dúbailtí a chur le chéile.

2. Téigh go dtí an Sraitheanna Comhcheangail Casta bosca dialóige;

  • (1.) Roghnaigh ainm colúin mar eochaircholún ar mhaith leat luachanna colún eile a ríomh bunaithe air, agus ansin cliceáil Príomhcholúin;
  • (2.) Roghnaigh an colún a theastaíonn uait roinnt ríomhanna a dhéanamh do na luachanna, agus ansin cliceáil Oibríochtaí a chomhcheangal > Comhcheangail ríomh, ansin roghnaigh cineál ríofa amháin a theastaíonn uait, sa chás seo, a roghnaíonn mé Suim. Féach an pictiúr:

doc-Advanced-comb10

3. Mura gá duit na hoibríochtaí a shocrú do na colúin scíthe, coinnigh an stát réamhshocraithe, ansin cliceáil OK, agus déanfar na luachanna dúblacha i gcolún A a chumasc agus cuirfear suas a luachanna comhfhreagracha i gcolún B. Féach screenshots:

doc-Advanced-comb11 -2 doc-Advanced-comb12

Nótaí:

1. Má dhéanann tú seiceáil Tá ceanntásca ar mo chuid sonraí rogha, tabharfar neamhaird ar do cheanntásca (an chéad tsraith) den raon nuair a chuireann tú an fóntais seo i bhfeidhm.

2. Úsáid luachanna formáidithe: coimeádfaidh sé formáidiú na luachanna tar éis na cealla dúblacha a chomhcheangal.

3. Níl an fóntais seo ar fáil chun sonraí a scagadh.

Cliceáil chun níos mó eolais a fháil faoin bhfeidhm Advanced Advanced Combine Rows.


Airteagal gaolmhar:

Comhcheangail sraitheanna dúblacha agus suim na luachanna

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


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á!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have used the code above successfully in the past however today, it is deleting column B. Looks like it's just removing duplicates...not sure what the issue is.

Sample Data
Reece, Ashley G01-Registered-UWG
Reece, Chris G02-Registered-KSU
Reece, Chris G03-Dropped-KSU
Reece, Jayden G02-Registered-UNG
Reece, Jayden G02-Withdrawn-UNG
This comment was minimized by the moderator on the site
I have in column A

1 Cast
2 Crew
3 Hiring
4 Cast
5 Hiring
6 Crew

I need these unique CAST CREW AND HIRING in another column without delete in column A entries.

Ex: I need (after formula)

1 Cast
2 Crew
3 Hiring

Is it possible by formula?
This comment was minimized by the moderator on the site
Above Macro only Combine the limited cell(e.g 20 cells) in b column. How to Combine more cells
This comment was minimized by the moderator on the site
Same - 2021 and this still only works if you have like 20 rows...
This comment was minimized by the moderator on the site
I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?
This comment was minimized by the moderator on the site
Same here. I was about to purchase because the tools are very nice, but figured I would try it first. Combine never works. I tried it for about 3 weeks now and it always locks up. No matter the power of my computer (ran on my at home powerhouse computer, same issue)
I kept cutting down to less and less data to see if it would work but it still would not.
The last one I tried was 4 columns and 100k rows and it still locked up. Not very useful unless you have like < 100 rows or something.
This comment was minimized by the moderator on the site
Same here, I filtered my data all the way down to 4 columns and 100k rows and it still work not work. I have tried this for 3 weeks now and unable to successfully complete my task. Kutools will only work if you have very few rows.
This comment was minimized by the moderator on the site
[quote]I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?By David Greene[/quote] Sorry, we will fix it in next version.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations