27. august 2015 - 09:05Der er
2 kommentarer og 1 løsning
Kopier tekst, indtil nyt tal
I A2 har jeg et tal, i B2 og C2 står der tekster. I de næste rækker står der en tekst i kolonne A, B og C, variabelt antal rækker. Er det muligt at kopier teksterne fra B2 og C2 ned i de efterfølgende rækker indtil der igen står et tal i kolonne A. Så står der f.eks et tal i A27 og nye tekster i B27 og C27, disse tekster skal så kopieres ned til der igen står et tal i kolonne A
Sub Insert() Rækker = ActiveSheet.UsedRange.Rows.Count For x = 2 To Rækker If IsNumeric(Cells(x, 1)) Then Else Cells(x, 2) = Cells(x, 2).Offset(-1, 0) Cells(x, 3) = Cells(x, 3).Offset(-1, 0) 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.