22. februar 2007 - 16:04Der er
8 kommentarer og 1 løsning
Gruppere og flytte data
Hejsa Sidder med et stort regneark med ca. 18.000 rækker og skal have fundet en god løsning på nedenstående opgave (skal gentage dette mindst 1 gang pr. måned fremover): Jeg har en række informationer om en husstand, feks. navn, fastnetnr og mobilnr. Hvis der er flere personer i husstanden har jeg de samme informationer flere gange (nye rækker) - altså hvis jeg f.eks. har informationer om 4 personer i én husstand, så har jeg 4 rækker med informationer om husstanden. Hver husstand har heldigvis et unikt ID - lad os kalde det husstandsID.
Opgaven: Jeg skal samle alle informationer om tlfnumre pr. husstandsID på én række. Dvs. for de førnævnte 4 rækker informationer for en husstand, skal jeg have samlet informationerne på én række, så jeg måske ender op med 2 fastnetnr og 3 mobilnr koblet med husstandsID (det kan godt være at der ikke altid er et fastnetnr eller mobilnr på en person).
Kan man overhovedet løse sådan noget i Excel eller skal man have gang i Access el. lign?
Det kan du godt løse i Excel - men spørgsmålet er hvad du vil opnå. Du kan godt få samlet dine eks.vis 4 rækker til een. Er dine data sorteret efter husstands-id?
Spørgsmålet er som sagt, hvad du vil opnå ved at samle de enkelte husstande. Hvor ajourføre du din liste? Det er jo en form for "database"
Access kunne godt anvendes og giver jo nogle flere muligheder.
Hej supertekst Det jeg vil opnå ved at samle de enkelte husstande, er kort fortalt: Jeg skal bruge listen til at lave telefonopkald efter - dvs. hver husstand skal fremgå én gang med et eller flere telefonnr
Her er et bud, hvor forudsætningerne er følgende: P.t. telefonliste er i Ark1 Posterne er sorteret iflg. ID Kolonne A indeholder ID Kolonne B indeholdet et telefonnr
De samlede telefonnr overføres til Ark2 - med ID i kolonne A og hvert telefonnr i hver sin kolonne. =================
Dim idNr, antalRækker, tlf, ræk2, kol2 Sub TlfListe() ActiveWorkbook.Sheets(1).Activate antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
ræk2 = 1
ID = "" For ræk = 1 To antalRækker If ID = "" Then ID = Cells(ræk, 1) kol2 = 2 Else If ID <> Cells(ræk, 1) Then ID = Cells(ræk, 1) ræk2 = ræk2 + 1 kol2 = 2 Else kol2 = kol2 + 1 End If End If
tlf = Cells(ræk, 2)
With ActiveWorkbook.Sheets(2) .Cells(ræk2, 1) = ID .Cells(ræk2, kol2) = tlf End With Next ræk MsgBox ("Tlf.listen er opbygget i Ark2") End Sub
Sorry for ventetid. Jeg har ikke afprøvet dit forslag, da jeg fandt en løsning via mit statistik-program SPSS. Men du skal have lidt points for dit forslag som - læg et svar, så sender jeg lidt den anden vej :-)
Vælger at lukke nu - tilbuddet om en andel i points står stadig ved magt. Jeg opretter gerne et spørgsmål til point
Synes godt om
Ny brugerNybegynder
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.
