Այս մեթոդը կներկայացնի VBA ՝ նշված ընտրության մեջ բոլոր նույն շարքի կամ նույն տողերը արագորեն միավորելու համար: Խնդրում ենք անել հետևյալը.

1. Մամուլ ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

2: Սեղմեք Տեղադրել > Մոդուլներ, ապա տեղադրեք VBA կոդը Մոդուլի պատուհանում:

VBA. Միացրեք շարքերը նույն ID- ի / անվանման հետ 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. Սեղմեք F5 ստեղնը կամ սեղմել Վազում այս VBA- ն գործարկելու կոճակը:

4, Kutools- ի համար Excel- ի երկխոսության պատուհանում դուրս գալու համար ընտրեք այն շարքերը, որոնք դուք կհամատեղեք և կտտացրեք այն OK կոճակ Տեսեք,

Այժմ կտեսնեք, որ նշված տիրույթի տողերը միավորված են նույն ID- ի ստորակետերով: Տեսեք,

ՆշումԱյս VBA- ն տողերը կարող է միավորել միայն առաջին սյունակի արժեքներով: Օրինակ, դուք ցանկանում եք միավորել տողերը նույն անունով, դուք պետք է անվան սյունակը տեղափոխեք նշված տիրույթի առաջին սյուն:

Հեշտությամբ միավորեք տողերը և հաշվարկեք Excel- ի մեկ այլ սյունակի արժեքների հիման վրա

Excel- ի համար նախատեսված գործիքներ Ընդլայնված կոմբինատ տողեր Կոմունալը կարող է օգնել միաժամանակ միավորել տողերը ՝ հիմնվելով anohter սյունակի արժեքների վրա, և գումար, հաշվել, միջին և այլն:

Եթե ​​Excel- ի համար տեղադրել եք Kutools, կարող եք կիրառել այն Ընդլայնված կոմբինատ տողեր հատկանիշ ՝ արագորեն միավորելու տողերը նույն ID- ի կամ անունների հետ `նշված տիրույթում:

1, Ընտրեք այն շարքերը, որոնք դուք համատեղելու եք և կտտացրեք Կուտոլս > Պարունակություն > Ընդլայնված կոմբինատ տողեր, Տեսեք,

2, Ընդլայնված կոմբինատ տողերի երկխոսության դաշտում ընտրեք ID- ն կամ անվանման սյունը, որը դուք կհամատեղեք, կտտացրեք Առաջնային բանալին, ապա ընտրեք համակցման կանոններ այլ սյունակների համար, որքան ձեզ հարկավոր է:

Իմ դեպքում, (1) Ես ընտրում եմ Պատվիրել ID սյունակը և կտտացրեք Առաջնային բանալին; (2) ընտրել Ամսաթիվ սյունակը և կտտացրեք Հաշվել > Հաշվել; (3) ընտրել Վաճառող սյունակը և կտտացրեք Միավորել > Կոմբին; (4) ընտրել Քանակ սյունակը և կտտացրեք Հաշվել > Գումար, Տեսեք,

3. Սեղմեք OK կոճակը:
Այժմ կտեսնեք, որ ընտրված տողերը զուգորդվում են պատվերի ID- ի հիման վրա: Տեսեք,

Ինչպե՞ս միավորել Excel- ում համարի / ամսաթվի ձևաչափումը պահելը:

Ինչպե՞ս Excel- ում մեկ այլ թերթից / տարբեր թերթերից միացնել բջիջները: