Jeg vil gerne kunne sætte tomme rækker i automatisk. Har en masse tal og vil gerne have en tomrække hver gang der kommer et ny tal. I dag ser det sådan ud: 1 1 2 2 2 2 3 3 3 Men skal gerne se sådan ud:
Sub NewLine() LastRow = ActiveSheet.UsedRange.Rows.Count For x = LastRow To 2 Step -1 If Cells(x, 1) <> Cells(x - 1, 1) Then Rows(x).Insert Next End Sub
Hvis du vil have makroen til at køre automatisk, når der skrives i kolonne A kan du bruge denne makro:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then LastRow = ActiveSheet.UsedRange.Rows.Count For x = LastRow To 2 Step -1 If Cells(x, 1) <> Cells(x - 1, 1) And Cells(x, 1) <> "" And Cells(x - 1, 1) <> "" Then Rows(x).Insert Next End If End Sub
Synes godt om
1 synes godt om dette
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.