25. august 2005 - 14:07Der er
9 kommentarer og 1 løsning
Kan man flytte tal automatisk
Jeg har et ark som nedenstående, udtræk fra XAL. Tallet som står i kolonne A skal flyttes til kolonne B. Det drejer sig om et ark med ca. 14000 linier. Hvordan gør jeg det automatisk?
Okay.... Tallet der står i eks. A3 skal rykkes til B3.... det samme gør sig gældende for resten af tallene i kolonne A (altså en kolonne til højre) Der står i forvejen tal i kolonne B og de skal blive stående.
Public Sub FlytTal() For i = 1 To Range("A65536").End(xlUp).Row ' ret sllv til If IsNumeric(Cells(i, 1)) Then Cells(i, 1).Offset(0, 1) = Cells(i, 1) Cells(i, 1) = "" End If Next 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.