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:
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 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:
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.
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.
Comhcheangail 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.
2. Ansin cliceáil Kutools > Tiontaire Ábhar > Sraitheanna Comhcheangail Casta. Féach an pictiúr:
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:
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:
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í.
Nóta: Mura gá duit na hoibríochtaí a shocrú do na colúin scíthe, coinnigh an stát réamhshocraithe.
Comhcheangail 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:
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:
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
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 ...
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á!