Cum se combină rândurile cu același ID / nume în Excel?
De exemplu, aveți un tabel prezentat mai jos și trebuie să combinați rânduri cu ID-urile comenzii, aveți idei? Aici, acest articol va introduce două soluții pentru dvs.
- Combinați rânduri cu același ID / nume de VBA
- Combinați rânduri cu același ID / nume de către Kutools pentru Excel
Combinați rânduri cu același ID / nume de VBA
Această metodă va introduce un VBA pentru a combina rapid toate rândurile cu același ID sau nume în selecția specificată. Vă rugăm să faceți următoarele:
1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Module, apoi lipiți codul VBA în fereastra Module.
VBA: Combinați rândurile cu același ID / nume în 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. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula acest VBA.
4. În caseta de dialog care apare din Kutools pentru Excel, selectați rândurile pe care le veți combina și faceți clic pe OK buton. Vedeți captura de ecran:
Acum veți vedea că rândurile din intervalul specificat sunt combinate cu virgule de același ID. Vedeți captura de ecran:
notițe: Acest VBA poate combina rânduri numai cu valorile din prima coloană. De exemplu, doriți să combinați rânduri cu același nume, trebuie să mutați coloana de nume în prima coloană din intervalul specificat.
Combinați cu ușurință rânduri și calculați pe baza valorilor dintr-o altă coloană din Excel
Kutools pentru Excel Rânduri combinate avansate utilitarul vă poate ajuta să combinați rânduri pe baza valorilor din coloana anterioară și sumă, numărare, medie etc., în același timp!
Combinați rânduri cu același ID / nume de către Kutools pentru Excel
Dacă aveți instalat Kutools pentru Excel, îl puteți aplica Rânduri combinate avansate caracteristică pentru a combina rapid rânduri cu același ID sau nume în intervalul specificat.
Kutools pentru Excel - Dotat cu peste 300 de instrumente esențiale pentru Excel. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Descarcă acum!
1. Selectați rândurile pe care le veți combina și faceți clic Kutools > Conţinut > Rânduri combinate avansate. Vedeți captura de ecran:
2. În caseta de dialog Advanced Combine Rows, selectați ID-ul sau coloana de nume pe care o veți combina, faceți clic pe Cheia principala, apoi specificați regulile de combinație pentru alte coloane, după cum aveți nevoie.
În cazul meu, (1) Selectez ID comandă și faceți clic pe Cheia principala; (2) selectați Data și faceți clic pe calculati > Conta; (3) selectați Vanzator și faceți clic pe Combina > virgulă; (4) selectați Sumă și faceți clic pe calculati > Sumă. Vedeți captura de ecran:
3. clic pe OK butonul.
Acum veți vedea că rândurile selectate sunt combinate pe baza codului de comandă. Vedeți captura de ecran:
Legate de articole:
Cum se concatenează păstrarea formatării numărului / datei în Excel?
Cum se concatenează celulele dintr-o altă foaie / foi diferite în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!