Dataerne som du har vist her er ikke noget problem. Placer markøren i tabellen/Dataerne og vælg sorter i menuen Data. Check at der markering ved Kollonneoverskrift, og vælg så sortere Fallende på kollonne A.
Hvis dataerne er af blandet, kan du skrive tal i den næste kollonne (G) og så sortere på den. Bagefter kan du så slette tallene i kollonne G.
Dim sidsteRæk As Long, ræk As Long, nyRæk As Long Dim omr Public Sub vendOm() sidsteRæk = ActiveCell.SpecialCells(xlLastCell).row nyRæk = 1 For ræk = sidsteRæk To 1 Step -1 omr = Range("A" & ræk & ":F" & ræk) Range("H" & nyRæk & ":M" & nyRæk) = omr nyRæk = nyRæk + 1 Next ræk End Sub
johs_s som jeg skriver, har jeg netop intet at sortere efter. Din skriv et tal løsning i kolonne G er ok, men det er lidt besværligt med en større mængde data.
supertekst din VBA kode fungerer som den skal og jeg har benyttet den.
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.
