Avatar billede benjamin-asmussen Nybegynder
23. september 2015 - 15:03 Der er 3 kommentarer og
1 løsning

Samle flere rækker i Excel

Kære alle

Jeg er i gang med et forskningsprojekt om danske købmænd i Kina i 1700-tallet. I den forbindelse har jeg samlet data om hvilke skibe de sejlede afsted på.

Mine data ser for øjeblikket ud som nedenfor, hvor jeg er ved at forberede dem til Social Network Analysis:

http://historieblog.dk/billeder/data.jpg

Rækkerne er købmændenes navn og kolonnerne er de ekspeditioner, de deltog i. For hver købmand står der 0, hvis han ikke deltog og 1, hvis han deltog i ekspeditionen.

Som det ses står hver købmand én gang for hver ekspedition, men jeg vil meget gerne have samlet hver købmand på én linje, så alle hans 1-taller står på samme linje. Findes der mon en snedig måde at gøre det på?

Jeg har tidligere gjort det manuelt, da det bare var et par hundrede poster, men nu er det over tusind, så hvis der findes en nemmere måde, ville jeg blive meget taknemmelig!

Med venlig hilsen og på forhånd tak
- Benjamin Asmussen
Avatar billede finb Ekspert
23. september 2015 - 16:37 #1
Sorter først efter købmænd,
brug så Data >> Subtotaler
Avatar billede jens48 Ekspert
23. september 2015 - 21:16 #2
Eller brug denne makro, som lægger linierne sammen og sletter de overflødige:

Sub Sammentael()
LastRow = ActiveSheet.UsedRange.Rows.Count
LastColumn = ActiveSheet.UsedRange.Columns.Count
For x = LastRow To 2 Step -1
If Cells(x, 2) = Cells(x - 1, 2) Then
For y = 4 To LastColumn
Cells(x - 1, y) = Cells(x - 1, y) + Cells(x, y)
Next
Rows(x).EntireRow.Delete
End If
Next
Avatar billede benjamin-asmussen Nybegynder
24. september 2015 - 09:55 #3
Tak for svarene til jer begge to.

Jens, det virkede perfekt! Det var ren magi at se makroen langsomt bevæge sig gennem alle rækkerne og klare det kedelige arbejde, der ellers ville have taget mig timer, på få sekunder. Tak for hjælpen!

Hvis du skriver et svar, sørger jeg for at du straks får dine velfortjente point :-)
Avatar billede jens48 Ekspert
24. september 2015 - 10:13 #4
Glæder mig at det kunne bruges
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester