23. marts 2010 - 15:15Der er
6 kommentarer og 1 løsning
Do løkke
Hej Eksperter
Jeg har en Pivottabel, hvor kolonne A består af kundenavne, og efterfølgende er der bundet kolonner op med informationer på kundenavnet (Så strukturen i pivot står ikke at ændre).
Problemet er, at jeg har et kundenavn, efterfulgt af et forskellige antal tomme linjer, og så et ny kundenavn.
Jeg vil gerne have lavet en macro, som kan tage alle kundenavne i kolonne A og indsætte dem i en ubrudt række i kolonne O i samme ark.
Jeg forestiller mig, at det kan gøres med en løkke af en slags, men jeg kan ikke få det til at virke? Any help?
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Public Sub kopierNavne() Dim antalRæk As Integer, ræk As Integer Dim Oræk As Integer, navn As String antalRæk = ActiveCell.SpecialCells(xlLastCell).Row Oræk = 1
For ræk = 1 To antalRæk navn = Range("A" & CStr(ræk)) If navn <> "" Then Range("O" & CStr(Oræk)) = navn Oræk = Oræk + 1 End If Next ræk End Sub
Public Sub kopierNavne() Dim antalRæk As Integer, ræk As Integer Dim Oræk As Integer, navn As String antalRæk = ActiveCell.SpecialCells(xlLastCell).Row Oræk = 20 'start i kolonne O
For ræk = 20 To antalRæk 'start i kolonne A navn = Range("A" & CStr(ræk)) If navn <> "" Then Range("O" & CStr(Oræk)) = navn Oræk = Oræk + 1 End If Next ræk End Sub
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.
