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 popping out Kutools ar gyfer Excel blwch deialog, dewiswch y rhesi y byddwch yn 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!

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

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:

Sut i gyd-fynd â fformatio rhif / dyddiad yn Excel?

Sut i gyd-fynd â chelloedd o ddalen arall / dalennau gwahanol yn Excel?