Tabharfaidh an modh seo VBA isteach chun gach sraitheanna a chomhcheangal go tapa leis an ID nó an t-ainm céanna sa roghnú sonraithe. Déan mar a leanas le do thoil:

1. Brúigh Eile + F11 eochracha chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. Cliceáil Ionsáigh > Modúil, agus ansin an cód VBA a ghreamú isteach i bhfuinneog an Mhodúil.

VBA: Comhcheangail Sraitheanna leis an ID / ainm céanna in 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. Brúigh an F5 eochair nó cliceáil ar an Rith cnaipe chun an VBA seo a rith.

4. Sa bhosca dialóige Kutools for Excel, roghnaigh na sraitheanna a chuirfidh tú le chéile, agus cliceáil ar an OK cnaipe. Féach an pictiúr:

Anois feicfidh tú go bhfuil na sraitheanna sa raon sonraithe comhcheangailte le camóga leis an ID céanna. Féach an pictiúr:

nótaí: Ní féidir leis an VBA seo ach sraitheanna a chomhcheangal de réir na luachanna sa chéad cholún. Mar shampla más mian leat sraitheanna faoin ainm céanna a chur le chéile, ní mór duit an colún ainm a aistriú go dtí an chéad cholún den raon sonraithe.

Sraitheanna a chomhcheangal go héasca agus ríomh bunaithe ar luachanna i gcolún eile in Excel

Kutools le haghaidh Excel's Sraitheanna Comhcheangail Casta is féidir le fóntais cabhrú leat sraitheanna a chomhcheangal bunaithe ar luachanna i gcolún anohter, agus suim, comhaireamh, meán, srl. ag an am céanna!

Má tá Kutools for Excel suiteáilte agat, is féidir leat a chuid a chur i bhfeidhm Sraitheanna Comhcheangail Casta gné chun sraitheanna a chomhcheangal go tapa leis an ID nó na hainmneacha céanna sa raon sonraithe.

1. Roghnaigh na sraitheanna a chuirfidh tú le chéile, agus cliceáil Kutools > Ábhar > Sraitheanna Comhcheangail Casta. Féach an pictiúr:

2. Sa bhosca dialóige Advanced Combine Rows, roghnaigh an ID nó an colún ainm a chomhcheanglóidh tú le do thoil, cliceáil Eochair Bhunscoile, agus ansin rialacha comhcheangailte do cholúin eile a shonrú de réir mar is gá duit.

I mo chás, (1) Roghnaigh mé an Ordú ID colún, agus cliceáil Eochair Bhunscoile; (2) roghnaigh an dáta colún, agus cliceáil Ríomh > Count; (3) roghnaigh an Díoltóir colún, agus cliceáil Chomhcheangail > Comma; (4) roghnaigh an méid colún, agus cliceáil Ríomh > Suim. Féach an pictiúr:

3. Cliceáil ar an OK cnaipe.
Anois feicfidh tú go gcuirtear na sraitheanna roghnaithe le chéile bunaithe ar ID an ordaithe. Féach an pictiúr:

Conas formáidiú uimhreacha / dáta a choinneáil i Excel?

Conas cealla a chomhtháthú ó bhileog eile / bileoga éagsúla in Excel?