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

Sut i gyfuno rhesi gyda'r un ID / enw ​​yn Excel?

Er enghraifft, mae gennych dabl fel isod sgrinlun a ddangosir, ac mae angen i chi gyfuno rhesi â'r IDau archeb, unrhyw syniadau? Yma, bydd yr erthygl hon yn cyflwyno dau ateb i chi.


Cyfunwch resi gyda'r un ID / enw ​​gan VBA

Bydd y dull hwn yn cyflwyno VBA i gyfuno pob rhes yn gyflym gyda'r un ID neu enw yn y dewis penodedig. Gwnewch fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna gludwch y cod VBA i mewn i ffenestr y Modiwl.

VBA: Cyfuno Rhesi gyda'r Un ID / enw ​​yn Excel

Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

3. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.

4. Yn y blwch deialog popio allan Kutools for Excel, dewiswch y rhesi y byddwch chi'n eu cyfuno, a chliciwch ar y OK botwm. Gweler y screenshot:

Nawr fe welwch fod y rhesi yn yr ystod benodol yn cael eu cyfuno â choma gan yr un ID. Gweler y screenshot:

Nodyn: Dim ond rhesi yn ôl y gwerthoedd yn y golofn gyntaf y gall y VBA hwn gyfuno rhesi. Er enghraifft, rydych chi am gyfuno rhesi o'r un enw, rhaid i chi symud y golofn enw i golofn gyntaf yr ystod benodol.

Cyfuno rhesi yn hawdd a'u cyfrifo ar sail gwerthoedd mewn colofn arall yn Excel

Kutools ar gyfer Excel's Rhesi Cyfuno Uwch gall cyfleustodau eich helpu i gyfuno rhesi yn seiliedig ar werthoedd mewn colofn anohter, a swm, cyfrif, cyfartaledd, ac ati ar yr un pryd! Nodwedd Llawn Am Ddim Treial 30-diwrnod!
ad datblygedig cyfuno rhesi 1

Cyfunwch resi gyda'r un ID / enw ​​gan Kutools ar gyfer Excel

Os oes gennych Kutools for Excel wedi'i osod, gallwch gymhwyso ei Rhesi Cyfuno Uwch nodwedd i gyfuno rhesi yn gyflym gyda'r un ID neu enwau yn yr ystod benodol.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Treial Am Ddim Nawr!

1. Dewiswch y rhesi y byddwch chi'n eu cyfuno, a chlicio Kutools > Cynnwys > Rhesi Cyfuno Uwch. Gweler y screenshot:

2. Yn y blwch deialog Advanced Combine Rows, dewiswch yr ID neu'r golofn enw y byddwch chi'n ei gyfuno trwy, cliciwch Allwedd Cynradd, ac yna nodwch reolau cyfuniad ar gyfer colofnau eraill yn ôl yr angen.

Yn fy achos i, (1) Rwy'n dewis y Gorchymyn ID colofn, a chlicio Allwedd Cynradd; (2) dewiswch y dyddiad colofn, a chlicio Cyfrifwch > Cyfri; (3) dewiswch y Gwerthwr colofn, a chlicio Cyfunwch > atalnod; (4) dewiswch y swm colofn, a chlicio Cyfrifwch > Swm. Gweler y screenshot:

3. Cliciwch y OK botwm.
Nawr fe welwch fod y rhesi a ddewiswyd yn cael eu cyfuno yn seiliedig ar ID yr archeb. Gweler y screenshot:


Erthyglau cysylltiedig:


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 (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fformiwla aluna sy'n bodoli ar gyfer creu eso si la herramienta?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir